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Programs for a programable calculator and a desk -top a 
provided for quickly determining yarding cost and compa 
economics of alternative yarding systems* The programs < 
the importance of the relationship between production r 
machine rate/ which is the hourly cost of owning and op* 
yarding equipment- In addition to generating the data r< 
analyzing the cost of a yarding operation, the desk-top 
plots the yarding cost versus production rate curve. Ex. 
simple step-by-step operating procedures are included. 



Equvalents gallon ' liters 
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acre = 0.4047 hectare 

gallon ' ^f lit 

toot = 3048 mere 
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Introduction 



Good logging planning is characterized by a systemat 
of alternatives and selection of the yarding system 
meets environmental and silviculture criteria for th 
Comprehensive cost analysis is needed in the plannin 
compare acceptable yarding systems. 

This report presents programs for a programable calc 
desk-top computer for determining yarding cost and c 
alternative yarding systems. Both programs are based 
yarding cost structure given by Mifflin and Lysons ( 
formulation is automated to enable the planner to qu 
alternatives. 



Nature of the 
Problem 



Selecting low priced equipment to reduce yarding cos 
the solution to economical yarding. Although equipme 
high, the cost of owning the equipment is generally 
by operating costs. Ownership and operating costs, w 
and expressed on an hourly basis, make up the machin 
and Lysons (1978) (see footnote 1) presented the brea 
cost components which make up machine rate (see f igu 
duction rate is often a more critical factor in dete 
cost and is generally the most difficult aspect of y 
predict. Production rate is defined as the volume of 
to the landing per unit of time. The cost of road ch 
the yarder and rigging the lines) and the cost of mo 
equipment in and out also affect the yarding cost. 



Mifflin, Ronald W. , and Hilton H. Lysons. 1978. Sk 
cost estimating guide. USDA For. Serv. Res. Note PNW 
Pac. Northwest For. and Range Exp. Stn. , Portland, 
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Figure 1. Machine rate cost elements. 



Sup 
and < 



The yarding cost equation is expressed as 

YARDING COST ($/U N IT VOLUME) = - MACHINE *** ($/H UR) 



PRODUCTION RATE (VOLUME 



MACHINE RATE ($/HOUR) 

+ X TOTAL ROAD CHANGE TIME (HOURS) 
TOTAL AREA (ACRES) X YIELD (VOLUME/ACRE) 

+ MOVE IN AND MOVE OUT COST . 

TOTAL AREA (ACRES) X YIELD (VOLUME/ACRE) 

The importance of the yarding cost equation is shown in 
The curve is the plot of the equation for a given, const 
rate. 
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CURVE FOR GIVEN 
MACHINE RATE 



PRODUCTION RATE (VOLUME/HOUR) 

Figure 2. Yarding cost versus production rate. 



The most significant feature of the curve is the sensitii 
yarding cost to changes in production rate. Production r; 
expressed algebraically as follows: 

PRODUCTION RATE = AVERAGE LOG VOLUME X LOGS PER TURN X Tl 

The average number of logs per turn tends to be constant 
system, and is usually determined by the ability to gath< 
tered logs into a turn. The number of turns per hour is ] 
dependent on machine design for a given yarding applicat: 
volume is therefore the most influential element in the ] 
rate equation. Thus/ in figure 2 the lower production ral 
generally denotes small logs; and the higher rate, or ri< 
portion of the curve, denotes larger logs. With the inhei 



The time spent operating in the woods is defined as oper 
Figure 3 shows the components which make up operating ti 
ductive time is the portion in which yarding takes place 
the cycle time. The fixed time elements are normally con 
a particular yarding system on a per setting basis. Hook 
unhooking chokers are independent of yarding distance. T 
and outhaul of chokers are directly related to yarding d 
and are therefore variable times. Nonproductive time inc 
change time (rigging and moving to a new yarding road) , i 
and move out time, and delay time. No yarding takes plac 
these times. The following example illustrates the cost 
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of small-log harvesting and the usefulness of makinc 
cost analysis when comparing alternative yarding sys 

Two small-log yarding systems for use in thinning 05 
compared on the basis of cost. Both systems employ s 
operated by a crew of three. Cost and production dat 
for both yarders and detailed in table 1. The equipn 
for System 1 is $70 / 000. System 2 equipment is value 
The machine rates are $65.59 for System 1 and $79.12 
Thus/ a 100-percent increase in equipment cost resul 
rate increase of only 21 percent. 

It is assumed that added design features of the Syst 
lower its yarding cycle time and reduce delays. This 
ductivity by increasing turns per hour. The product! 
System 2 is 3.5 cunitsvhour compared to 2.1 cunits/ 
with System 1. Log volume is assumed to be 10 cubic 
(0.1 cunit) , and turn size averages 3.5 logs per tur 
systems. The difference in production rate is due tc 
turns per hour; 10 for System 2 and 6 for System 1. 

The gain in production rate for System 2 is achieved: 
of doubling the cost of equipment. On a cost per uni 
however/ the cost saving is significant. The yardinc 
System 2 is $24. 54/cunit/ a 26-percent decrease fron 
cunit cost for System 1. The plot of the yarding cos 
figure 4 illustrates this situation. 



cunit is a unit of volume measuring 100 cubic fee 



Item 



Unit 



System 1 



Equipment cost 
Residual 

Depreciation period 
Repairs and maintenance 

Annual interest rate 

Tax, license^ insurance/ and 

storage 

Operating season 
Operating time per day 
Fuel consumption 
Fuel cost 
Oil and lube 
Oil and lube cost 
Line cost 
Line life 
Rigging cost 
Rigging life 

Tire or track replacement cost 
Total crew wage 
Fringe benefits 
Travel time per day 
Supervision and overhead 

Cutting unit area 
Yield per acre 

Average volume per piece as bucked 
Average number of pieces per turn 
Average number of turns per hour 
Number of yarding roads in unit 
Time per road change 
Move in and move out cost 

Ownership cost 
Operating cost 

Machine rate 
Production rate 

Road change cost 

Move in and move out cost 

Yarding cost 



Dollars 

Percent equipment cost 

Years 

Percent equipment 

depreciation 
Percent 



70,000 

20 

7 

50 
12 



Percent 9 

Days worked/year 200 

Hours 8 

Gallons/hour 2 

Dollars/gallon .80 
Percent fuel consumption 5 

Dollars/gallon 1.50 

Dollars 3,600 

Hours 1600 

Dollars 1,000 

Hours BOO 

Dollars 

Dollars/hour 30 
Percent total crew wag<* 30 

Hours 

Percent direct labor 20 

Acres 3 r > 

Cunits 40 

Cunitr; 0.1 

6 

10 
Hours 1 

Dollar:; 2,000 

Dollars/hour 11.04 

Do liar s /ho u r S 4 . l } ! . 



Dollars/hour 
Cun it/hour 

Dollars/can it 
Dollar s/cunit 

Dollars/can it 



2 . 1, 

0.42 
1.43 

33.08 



A/The operating costs for the two systems would be equal except that repair 
and maintenance cost (a part of operating cost) increases proportionately v 
an increase in equipment cost. 
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Figure 4 . Yarding cost versus production rate 
curves for System 1 and System 2. 



Dlication 



The programable calculator and desk-top computer programs re 
inputs relating to ownership cost, operating cost, cruise da 
and production rate estimates. These values are entered in a 
based on the worksheets developed by Mifflin and Lysons (19*y 
footnote 1) . The programs compute yarding cost and productic 
using data initially entered as base values. These can be ct: 
and the results of these new values compared to the base val 

The desk-top computer program supplies printed output not a\; 
on the calculator. Input values and results are documented, 
desk-top program also plots curves to help the planner visua 
the sensitivity of the relationship between yarding cost and 
production rate (figure 4) . 

The desk-top program, although it may appear complicated or 
lengthy, is a straight-forward, step-by-step method for dete 
mining machine rate and yarding cost. Once that is done, a r 
of optional steps may be taken to produce a more detailed ya 
system cost analysis. The basic functions of the program are 
in figure 5. 



DETERMINES MACHINE 
RATE AND YARDING COST 



OPTIONS FOR FURTHER ANALYSIS: 



CHANGE SELECTED VARIABLES AND DETERMIi 
THE EFFECT ON YARDING AND OTHER COST! 



PRINT ALL VARIABLE VALUES (ORIGINAL 
AND CHANGED VALUES) AND ALL COSTS 



Figure 5. Basic structure 
of desk- top computer 
program . 



MAKE A PLOT OP YARDING 
COST VERSUS PRODUCTION RATE 



3r's Guide 



Operating instructions and program listing;; aro givon for a 
programable calculator and a desk-top computer r,y:;t^nu Thr>y w 
developed on, but not limited for use on, a Hwl out-Packard ** 
or 67 calculator and a 9845A or 9845B dor,k-top computer ur. i nq 
ASCII BASIC language. The desk-top system require a minimum 
internal memory capacity of 50,000 bytes. Certain output may 
generated on a peripheral plotting device if available, as we 
on the CRT screen or internal printer. The program was develo 
to use the Hewlett-Packard 9872A plotter. 



-^Mention of trade names does not constitute endorsement by th 
USDA Forest Service over other brands that can do equivalent 
functions. 



eration of 
>gramable 
culator 
igram 



the use of these programs will be provided. 

The inputs to this program are similar to the worksheets de 
by Mifflin and Lysons (1978) (see footnote 1) for determinin 
machine rate, production rate, and yarding cost. The progra 
provides a faster means of computing the same values that c 
derived by hand using the worksheets. 

General Information 



1. This program is comprised of three sections. The first 
ownership cost and is entered through key A. The second com 
operating cost and is entered through key C. The third calc 
production rates and yarding costs and is entered through k 
key E. 

2. Only one piece of equipment at a time may be entered, u 
the desk-top computer program which allows up to nine piece 
analyzed simultaneously. 

3. Values for all variables must be entered. If variables 
applicable or are zero, they must be entered as zero. 

4. If a mistake is made while entering values, either cont 
through the section and then start the section over, or pre 
"GTO" then ".001," and start the section over. 

5. If you desire to change one or more variables in a sect 
the variables for the entire section must be re-entered. Al 
Section I is redone, Section II must also be redone. Sectio 
Section III, however, can be redone alone. 

6. Certain machine or production values may be accessed du 
after program completion. Table 2 shows what values are sto 
where they reside. Values are displayed by pressing "RCL," 
recall key, then the appropriate storage register key (A, B 
E or 0-9) . 



Table 2 Storage register values 



Storage 
register 



Value displayed after completion of Section: 



II 



III 



A 
B 
C 

D 

E 


1 
2 
3 
4 
5 
6 
7 

8 
9 



residual value 
equipment depreciation 
average annual investment 
hours worked per day 
hours worked per year 
taxes, license, insurance, 

and storage cost 
ownership cost 

(dollars/hour) 



depreciable value 
depreciation period 



residual value 
equipment depreciation 
average annual investment 
hours worked per day 
hours worked per year 
taxes, license, insurance, 

and storage cost 
ownership cost 

(dollars/hour) 
operating cost 

(dollars/hour) 
machine rate 

(dollars/hour) 
supervision and overhead 

(percent) 
fuel consumed 

(gallons/hour) 
depreciable value 

depreciation period 



residual value 
equipment depreciation 
average annual investmeni 
hours worked per day 
hours worked per year 
taxes, license, insurance 

and storage cost 
ownership cost 

(dollars/hour) 
operating cost 

(dollars/hour) 
machine rate 

(dollars/hour) 
gross production rate 

(volume/hour) 
gross road change cost 

(dollars/unit volume) 
gross move in and move 01 

cost (dollars/unit voli 
gross yarding cost 

(dollars/unit volume) 
(100-percent defect) /100 
net yarding cost 

(dollars/unit volume) 



Operating Procedures 

1. Set calculator to "run" and "manual" modes. 

2. Insert sides 1 and 2 of program card. Display will read O.CM 

A sample response is shown in parentheses following each step. 
Sample output is shown following all input steps. The relations! 
between program input and use of the worksheets can be seen by 
comparing the inputs (shown in parentheses) with the bold-faced 
values entered on the worksheets, pages 14 through 17. 



Section I. Ownership Cost 

1. Key in: Equipment cost, press ENTERi 

Key in: Residual (percent of equipment cost) , 

press ENTERS 

Key in: Depreciation period (years) , press A 
Display: equipment depreciation 
(dollars/year) 



(14000( 

(2( 

C 

16000.01 



(percent of average annual investment) , 

press ENTERi 
Key in: Operating season (days worked/year) , 

press ENTERS 
Key in: Operating time per day (hours) , press A 

Display and print: ownership cost, 

dollars/hour 



Section II. Operating Cost 

1. Key in: Repairs and maintenance cost (percent of 

equipment depreciation) , press ENTERt 

Key in: Fuel consumption t (gallons/hour) , press ENTERS 
Key in: Fuel cost (dollar/gallon) , press C 

Display: repairs and maintenance cost, 
dollars/hour 

2. Key in: Oil and lube (percent of fuel consumption) , 

press ENTERt 
Key in: Oil and lube cost (dollars/gallon) , 

press ENTERS 

Key in: Line cost, press ENTERt 
Key in: Line life (hours) f press C 

Display: oil and lube cost, dollars/hour 

3. Key in: Rigg ing cost , press ENTERS 

Key in: Rigging life (hours) , press ENTERS 

Key in: Tire or track replacement cost, press ENTERt 

Key in: Tire or track life (hours) , press C 

Display: rigging cost, dollars/hour 

4. Key in: Total crew wage, press ENTERlt 

Key in: Percent fringe benefits, press ENTERS 
Key in: Travel time (hours/day), press ENTER-t 
Key in: Supervision and overhead (percent of 
direct labor cost) , press C 

Print: operating cost, dollars/hour 
Display and print: machine rate, 
dollars/hour 



Unknown production rate: 



as bucke d, pr>r.r, ENTER: 



**"~ 

: gross production rate, 



unit volume/hour 



2m Key in: pero.nLJ^^ 



^^ 



road_chanae (hours), 



Key in: Move in _and 

* 




> V " AH c*i* v* * * > *"' ^ ir __i_z_^^,^~"~- 

Display: (100-percent defect) /I 00 



3. Key in: Area of unit, press ENTER ' 

Ke y i n: Yield (unit volume/unit ar*a) , pi-:- I'- 
Print: remainder of output: 

(see Sample Output, p. I ) 

Known production rate: 

1. Key in: Product iorL_rate (unit VM! i:m- h- n ), f 

Display: grosr; pmlie-t. I.M :-i*-, 
unit volume /huui 

2. Key in: Percent deject^ Jji ]>!*"'*'; . "' i f :> ^ ' 
Key in: Number Ql.J^t^injj' jn * M itt i^j !t , ; 
Key in: Time p^r_^ettjjnfl. cliarKj' '% ir , , y 
Key in: Move in and move* out ( *.'.'...*. f !' ' 



3. 



Key in: Area of unit, prer,:; K?;TKi-' ' 
Key in: Yield (unit volum^/uni*: -ir'V f 
Print: remainchM" :>t .)..i*.p.:* 
(see Sample Output, p. ! ; 



During execution, costs and production rates are printed 01 
tape. At completion of the program, the tape output will a] 
shown below: 



22.08 *** 
57.05 *** 



3.50 *** 

3.15 *** 

0.51 *** 

1,43 *** 

0.57 *** 

1.59 *** 

24.54 *** 

27.27 *** 



Ownership cost, dollars/hour 
Operating cost, dollars/hour 



79.13 *** Machine rate, dollars/hour 



Gross production rate, unit volume/hour 
Net production rate, unit volume/hour 

Gross road change cost, dollars/unit voli 
Gross move in and out cost, dollars/unit 

Net road change cost, dollars/unit volunn 
Net move in and out cost, dollars/unit v< 

Gross yarding cost, dollars/unit volume 
Net yarding cost, dollars/unit volume 
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More than one piece of equipment may be analyzed as part of a 
single yarding operation. For example, a yarder, carriage and 
rigging hardware can be included in the yarding cost analysis 1 
re-running the program. The steps below should be followed for 
second and subsequent pieces of equipment: 

1. In Section I, enter the equipment cost, residual and 
depreciation period. 

2. In Section I, re-enter the original values of annual integ- 
rate, taxes, license, insurance, and storage, operating season, 
and operating time per day. 

3. In Section II, enter repairs and maintenance cost, then ent 
for the remaining variables. 

4. In Section III, re-enter the original values for all variat 
except move-in and move-out costs for which the entry is 0. 

5. The tape output values corresponding to ownership cost, 
operating cost, machine rate, road change cost and yarding cost 
for each piece of equipment should be added together for the tc 
cost. 



ation of 
;~Top 
3uter 
ram 



With the program stored on a tape cartridge, it in oxocutod as 
follows: 



Initial Data Entry 

1. Enter GET "YCOST" and execute. 

2. Press RUN when program is loaded. 

From this point on, visual prompts on tho CRT r,crrn will qui.de 
further input. A sample keyboard response is .shown in par^nthes 
following the underscored prompt message. 



The CONT key must be pressed after each entry. 

3 . Want output on the screen? _( YES ^_Jjj }_^_ I *" ( ^ J ' c 
be on the printer. ( NO ) ~~ 

Y or N may always be entered in place of YES or NO. 



4. Do you want a heading for all 
If (NO) skip step 5. 



(YE: 



(SAMPLE OUTPUT) 

The characters entered here will be printed as a sing 
line at the top of each section of output? i.e., the 
generated by the initial run and keys 1, 2, 3, 11, 12 
14, and 15. 

6. Number of pieces of equipment to depreciate = ? (2) 

Up to nine pieces of equipment associated with an ope 
may be entered. One may represent a yarder, another t 
carriage, etc. If six or more are entered, the follow 
message will be displayed for 7 seconds: 

"Screen output may be incomplete for VARIABLE CHANG 
PRINT ANALYSIS routinesl 11 

Some portion of the results may be missing on the scr 
due to a lack of buffer space for screen output. Resu 
cost values will be correct, however, and output on t 
printer will be complete. 

For various entries, such as above, a non-zero value 
required. If zero is entered, a message will indicate 
and the original prompt will return to allow the vale 
be re-entered. 

7. For piece #1: Equipment identifier (30 characters rnaxi 
= ? (YARDER) 

8. For piece #1: Cost of YARDER (dollars) = ? (125000 

9. For piece #1; Residual value (percent of equipment cos 

(20) 

10. For piece #1: Depreciation period (years) = ? (7) 

11. For piece #1; Repairs and maintenance (percent of equ: 
depreciation, $14286 per year) = ? (50) 

The value shown is the amount of equipment depreciate 

12. For piece #2; Equipment identifier (30 characters max! 
!LJi (CARRIAGE) 

13. For piece #2: Cost of CARRIAGE (dollars) = ? (3000 

14. For piece #2; Residual value (percent of equipment cos 

(10) 



16. For piece #2: Repairs and maintenance (pet of equip, depr 
$540 per year) = ? (20) 

17. Annual interest rate (percent) = ? (12) 

18. Taxes, license, insurance & storage (pet of avg. arm. 
invest., $84063) = ? (9) 

The value shown is the amount of the average annual 
investment. 

19. Operating season (days worked/year) = ? (200) 

20. Operating time per day (hours) = ? (8) 

21. Fuel consumption (gallons/hour) = ? (3) 

22. Fuel cost (dollars/gallon) = ? (.80) 



23. Oil and lube consumption (percent of fuel congujyj^ 

(5) 

24. Oil and lube cost (dollars/gallon) = ? (1.50) 

25. Line cost (dollars) = ? (3600) 

If line cost = 0, skip step 26. 

26. Estimated line life (hours) = ? (1600) 

27. Rigging cost (dollars) = ? (1000) 

If rigging cost = 0, skip step 28. 

28. Estimated rigging life (hours) JiJ? (800) 

29. Tire or track replacement cost (jgjjLai^} "" ? (0) 

If tire or track replacement cost = 0, skip r,tep 30. 

30. Estimated tire or track life 



31 Total crew wage (base wage for all ............. _crewjgemboT s 

dollars/hour) = ? (30) ~ 



32 * Frin 9 e benefits (percent of total_jsr^^ (30) 

33. Travel time per day (hours) = ? (.5) 



Direct labor is expressed algebraically as 

(total crew wage) x 100 + % fringe benefits + travel time/ 

100 operating tin 

35. Volume units = ? (5 characters maximum) (CUNIT) 

36. Is known production rate to be entered? (YES or NO) 

Sample output will be shown for both cases. If (NO) , 
continue at step 45. 



Known Production Rate - EXAMPLE. 1 

37. Percent defect in pieces as yarded = ? (0) 

38. Number of yarding roads in unit = ? (11) 

Total road change time is calculated by multiplying t 
time per road change by the number of yarding roads i 
cutting unit less one. Set-up for the first or only } 
road is mandatory and considered part of move in. 

39. Time per road change (hours) = ? (1) 

40. Production rate (cunit/hour) = ? (5) 

41. Move in and move out cost (dollars) = ? (2000) 

42. Cutting unit area (acres) = ? (35) 

43. Yield per acre (cunit) = ? (40) 

Steps 42 and 43 are required to express the road char 
cost and move in and move out cost in dollars/unit v< 
If total road change time and move in and move out cc 
zero, area and yield are not needed. 

44. Enter identifier (25 characters maximum) (EXAMPLE ] 

If nothing is entered (i.e., only the OONT key is pr* 
no identifier will be used. 
Note: Skip remaining steps (45-51) . 

Calculate Production Rate - EXAMPLE 2 

45. Average volume per piece as bucked (cunit) = ? (.!' 

46. Percent defect in pieces as yarded = ? (6) 



No roaa cnange 
48. Average number of pieces per turn = ? 



(3.5) 



49. Average number of turns per hour - ? (12.5) 

The value of turns per hour should account for delays. 

50. Move in and move out cost (dollars) = ? (0) 

51. Enter identifier (25 characters maximum) (EXAMPLE 2) 

If nothing is entered (i.e., only the CONT key is press 
no identifier will be used. 

The initial data entry is complete. The results for the two sa 
outputs are shown in figures 6 and 7. Yarding cost is the mach 
rate divided by production rate plus road change cost plus mov 
and move out cost. When percent defect in pieces yarded equals 
zero, no distinction is made between gross and net values. In 
figure 1, however, the difference between gross and net values 
due to the percent defect in pieces yarded. 

Further action must be initiated through the special function 
keys. The overlay card, figure 8, defines the keys. 

SRNPLE OUTPUT 



Y H R B I N ij C G S T P R G R R M 
Values are for EXRMPLE 1 

U N E R 3 H I P C S T = $ . ' i . "-: 8 H 1 i P 
OPERR1ING COST = $ 59. 71 HOUR 

M H C h I N E R H T E = $ S 8 .01 H 1. : K 

F 1 R: U U C T ION R R T E ~ j . f.i L . IJ N i 1 h ' j '.. t- 

ROFiC CHRNGE COST - $ .5".CUNI1 
MOVE IN RND OUT COST -- J 1.4"' :..?< 



Y h R D I H G C S T = $ 1 8 . y ti - C ' J N I r 

Figure 6. Printed sample output for known 
production rate. 



YRRIUNG COST PROGRRM 

V a 1 u e s a r e f o r E X R M F 1 L E 2 

!--! H E R S H I P C 3 f = $ 9 . 3 8 . ' H U R 
F 1 E R H T I H G C S T = $ 5 9 . 7 1 . ' H U R 

M R C H I N E R R T E = * 38.61 / H U R 

G R S S P R 1 U C T I H R fl T E == 6 . 1 3 C U N I T / i- -1 U R 

N E T P R D U C T I H R fl T E = 5 - 7 6 C U N I T , - H U R 

G R S 3 V R R H I H G C GST = $ ' 1 : 3 . 6 6 / C I J N I T 

[ 

H E T Y R R H I N G C S T = $ ' 1:3. 9 8 / C U H I T 

Figure 7. Printed sample output for calculated 
production rate. 
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Output 
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on printer 


Rewind 
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of plot 




Plot 
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Plot on 
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ownership 
cost 


Change 
operating 
cost 


Change 
machine 
rate 


Change 
gross 
volume/hour 


Change 
net 
volume/hoi 



ire 8. Special function key overlay. 



All future output will be displayed on the CRT screen. 

Key 6 - Output on Printer 

All future output will be printed on the internal printer. 

Key 1 - Print Analysis 

The values of all variables will be displayed along with the 
resultant costs and production rates. Each variable is number* 
and the "base values" correspond to the initial data entered 
previously. The "new values" and "percent change" are explain* 
under Key - Variable Changes. Until a variable is changed w; 
Key 0, the "new values" equal the "base values" and "percent 
change" is zero. Figures 9 and 10 present the base values ent< 
previously as EXAMPLE 1 and EXAMPLE 2. 

For output on the screen r the variables up to number 22 will I 
displayed. Key 3 must be pressed to display the remainder of 1 
analysis. 



Key 2 - Part 1 

For output on the screen, this key displays the variables up t 
number 22 exactly as Key 1 does in the output-on-screen mode. 

Key 3 - Part 2 

For output on the screen, the remainder of the variables and/c 
the resultant costs and production rates are displayed. 



1PLE OUTPUT 



1LYSIS OF VRRIfiBLE CHRNGES 



BflSE VflLUES = EXflMPLE 1 
NEW VflLUES = EXRMPLE 1 



COST OF yarder 
COST OF carriage 

RES I HURL (PERCENT OF EQUIPMENT 
RESIDURL (PERCENT OF EQUIPMENT 
DEPRECIATION PERIOD (YERRS) 
DEPRECIRTION PERIOD (YERRS) 
REPRIRS & MRINTENRNCE (PERCENT 
REPRIRS -, MRINTENRNCE (PERCENT 
RNNURL INTEREST RRTE (PERCENT) 
TflX, LICENSE, INSURflNCE, RND STORRGE 
P E R R T I N G S E R S N ( D R Y S W R K E D / Y E fl R ) 
OPERRT1NG TIME PER DRY (HOURS) 
FUEL C N S U M P T 1 N ( G R L L N S / H U R ) 
FUEL C S T < D L L R R S / G R L L N ) 
OIL RND LUBE (PERCENT OF FUEL C 
OIL RND LUBE COST ( DOLLRRS/GRLLON ) 
LINE COST (DOLLRRS) 
LINE LIFE < HOURS) 
RIGGING COST (DOLLRRS) 
RIGGING LIFE (HOURS) 
TIRE OR TRflCK REPLRCEMENT COST 
TIRE OR. TRflCK LIFE (HOURS) 
TOTRL CREN URGE ( DOLLRRS.-"HOUR ) 
FRINGE BENEFITS (PERCENT OF TOTflL 
TRflVEL TIME PER DRY (HOURS) 
SUPERVISION RND OVERHERD . (PERCENT 





ERSE 


NEW PERCENT 




VflLUES 


VflLUES 


CHflNGE 


(DOLLRRS) 


125008 


125006 


. 





(DOLLRRS) 


3009 


3608 


0. 





COST) 


20 


28 


0. 





COST) 


10 


10 


0. 







'7 


7 


0. 







5 


5 


0. 





OF DEPRECIfiTION) 


56 


59 


0. 





OF IiEPRECIRTION) 


28 


20 


0. 







12.00 


12.09 


0. 





E (PERCENT) 


9.00 


9.00 


0. 





R ) 


200 


200 


0. 







8.0 


8 . 


. 







3.00 


3. 00 


0. 







.80 


.80 


0. 





SUMPTION) 


5 


tr 
_' 


0. 





') 


1.50 


1.50 


0. 







3600 


3609 


0. 







1600 


1600 


0. 







1000 


1000 


0. 







800 


S00 


0. 





OLLRRS) 








0. 













0. 







30. 00 


3 . 


0. 





CREW URGE) 


30 


30 


0. 







.50 


.50 


0. 





OF DIRECT LflBOR) 


20 


20 


0. 






CUTTING UNIT flREfl (RCRES) 

YIELD PER RCRE (CUNIT) 

DEFECT IN PIECES RS VflRDED (PERCENT) 

NUMBER OF YRRDING RORDS IN UNIT 

TIME PER RORD CHflNGE (HOURS) 

MOVE IN RND MOVE OUT COST (DOLLRRS) 



35 


35 


0. 


4 . 


4 . 


. 


. 


0.00 


0. 


1 1 


1 1 


0. 


1 . 00 


1 . 00 


0.0 


2 


2 


. 



--IERSHIP COST (DOLLRRS/'HOUR) 
ERRTING COST (DOLLRRS/'HOUR ) 

:HINE RRTE (DOLLRRS/HOUR) 

DDUCTION'RRTE (CUNIT/HOUR) 
RD CHRNGE COST (DOLLRRS/CUNIT) 

VE IN RND OUT COST (DOLLRRS/CUNIT) 



20.30 
59. 71 

80.01 
5.00 

.57 
1 . 43 



29.30 
59.71 

80.01 

5.Q0 

.57 

1.43 



0. 
0.0 

0.0 

0.0 
0.0 
0.0 



RDING COST <DOLLRRS/CUNIT) 18.60 18.00 

ure 9. Printed output from key 1 (Print analysis) for EXAMPLE 1. 



0.8 



5ft M RLE OUTPUT 



ft N ft L V S I S F V ft R I h B L C H ft H G E 3 



NEW VRLUE 1 : - E'.'RHF'lE 2 



VMLUb" " 



1 #1 COST OF yarder 
#2 COST OF carriage 

2 #1 RES I HURL (PERCENT OF EQUIPMENT CO^T 
#2 RESIDURL (PERCENT OF EQUIPMENT COST 

3 #1 DEPRECIRTION PERIOD (YERRS) 
#2 DEPRECIRTION PERIOD (YERRS) 

4 #1 REP R IRS & MRIHTENRNCE (PERCENT 
#2 REPflIRS :i. MRINTENRNCE (PERCENT 

5 R N N U R L I N T E R E S T RRTE ( P E R C E H T ) 

6 T R X , L I C E N S E , I N S U R R N C E , R N D S T R R G" E 

7 P E R R T I N G S E R S N ( D R Y S U R K E U / Y E R P 

8 OPERRTING TIME PER DRY (HOURS:' 

9 FUEL C N S U M P T I H ( G R L L N S . " H U K > 

10 FUEL COST (DOLLRRS/GRLLON:' 

11 OIL R N D L U B E ( P E R C E N T F F U E L C N 'I': U M P i 

12 OIL RND LUBE COST ( DQLLflRS/Gfil.LON : 

13 LINE COST (DOLLRRS) 

14 LINE LIFE (HOURS) 

15 RIGGING COST (DOLLRRS) 

16 RIGGING LIFE (HOURS) 

17 TIRE OR TRflCK REPLACEMENT COST .'HO. I HP 

18 TIRE OR TRflCK LIFE (HOURS;' 

19 TOTRL CREW WftGE ( DOLL RRS- -HOUR ' 

20 FRINGE BENEFITS (PERCENT OF TOTHL HPfcN 

21 TRRVEL TIME PER DAY (HOURS) 

22 SUPERVISION RND OVERHERD -'PERCENT "- T ' 



-.. L d L L h K >: : 

: DC'Li^P ;' 



DEPREC IHTICH' 
DEPF'ECIftT ! OH' 



NE.W 

V H L LI E 'I- 



25 R V G . V L U M E s PIECE R S H; U C K E H C U H IT < 

26 DEFECT IN PIECES RS YfiRDED ^ PERCENT 
2 7 H U M B E R F Y ft R D I H G R ft D S I N U N I T 

28 RVERRGE NUMBER OF PIECES PER TURN 

29 RVERRGE NUMBER OF TURNS PER HOUR 
3 TIME PER ROflD CHRNGE (HOURS) 

31 MOVE IN RND MOVE OUT COST C BO Lift PS 



W N E R S H I P C S T ( D L L ft R S ' H U R > 
P E R ft T I N G C S T ( D L L ft R S / H U R > 

MRCHINE RRTE (DOLLRRS/HOUR :< 
GROSS PRODUCTION RRTE <CUNIT/hOuR 
NET PRODUCTION RRTE ( C UNI T " HOUR 




G R S S Y R R D 1 N G C S T ( D L L R R S / C U N ! T > 

NET YRRDING COST (DOLLRRS/CUN I T ) ! ': . *i.t 

Figure 10. Printed output from key 1 (Print anolnsis) ?or 
EXAMPLE 2. 




This routine allows changes to be made in the initial or n bc 
values 18 and computes the resulting costs. The procedure^ wit 
sample input corresponding to EXAMPLE 2 f is as follows : 

1. The number of the variable to be changed = ? (1) 

This is the number that corresponds to each variable 
shown in figure 8 or 9. In this case, equipment cost, 

2. For what piece (#) of equipment? (1) 

The yarder cost will be changed. 

3. Do you want to delete this piece of equipment (YES or HC 
(NO) 

4 . BASE VALUE = 125QQQ LAST VALUE = 125QQQ NEW VALUE = : 
(200000) 

LAST VALUE refers to the previous new value entered 
equals the base value unless a new value has been enl 

5. Any more variable changes desired? (YES or NO) (Yi 

6. The number of the variable to be changed =? (21) 

It is desired to change travel time per day (variable 
number 21) 

7. BASE VALUE = .50 LAST VALUE = .50 NEW VALUE = ? 

8. Any more variable changes desired (YES or NO) (YES) 

9. The number of the variable to be changed = ? (1) 

It is desired to change equipment cost. 

10. For what piece (ft) of equipment? (2) 

The carriage cost will be changed. 

11. Do you want to delete this piece of equipment? (YES or _ ] 
(YES) 

12. Any more variable changes desired (YES or NO) (YES) 

13. The number of the variable to be changed = ? (1) 

14. For what piece (#) of equipment? (4) 

It is desired to add a piece of equipment to the exis 
pieces in the base values. Since there are only two, 
pieces are only added in sequence , the following mess 
will be displayed: 

"Note: the piece # you selected is changed to 3. 

Press CONT to proceed." 



16. 



17. 



18. 



For piece 3: Cost of RIGGING HARDWARE (dollars) = ? 
(5000) 



For piece 13; Residual value (percent of equipment cost) 
(10) 



For piece #3: Depreciation period (years) = ? (0) 
A depreciation period of zero years is not allowed, and 
following message is displayed for 6 seconds: 

"The value of may not be entered for this variable! 
It must be re-entered." 



19. For piece #3; Depreciation period (years) = ? 



(4) 



20. For piece #3: Repairs and maintenance (percent of equipim 
depreciation = ? (0) 



21. Any more variable changes desired? (YES or NO) 



(NO) 



22. Enter identifier for NEW VALUES (25 characters maximum) 

(EXAMPLE 2 UPDATE) 

If nothing is entered (i.e., only the CONT key is press* 
the identifier for the new values will be the same as tl 
for the base values. However, once an identifier is 
entered, when step 22 is encountered in a subsequent 
VARIABLE CHANGES routine and nothing is entered, the 
identifier for the new values will remain unchanged. 

23. Enter a new heading for all output (70 characters maximum! 

If nothing is entered (i.e., only the CONT key is press* 
the existing heading will remain unchanged. 

The variable changes are complete. Output can be obtained by 
pressing key 1, key 2, or key 3. For output on the printer, 
pressing key 1 yields the results shown in figure 11. 



SflNPLE OUTPUT 



ANALYSIS OF VARIABLE CHRHGES 



BRSE VfiLUES = EXAMPLE 2 

NEW VRLUES - EXflMPLE 2 UPDRTE 



BRSE 
VRLUES 

1 #1 COST OF yarder '..DOLLRRS) 1250 GO 

# 2 C S T F : ar- r i ag e >:. D L L A R S ) 3 

# 3 C S T F r i g g i n g h ar d w ar-' e ( D L L R R S ) 

2 #1 RESIDUAL (PERCENT OF EQUIPMENT COST.:- 20 
#2 RESIDUAL (PERCENT OF EQUIPMENT COST) 10 
tt3 RESIDUAL (PERCENT OF EQUIPMENT COST) 

3 #1 DEPRECIRTION PERIOD (YERRS) 7 
#2 DEPRECIRTION PERIOD (YERRS) 5 
#3 DEPRECIRTION PERIOD (YERRS) 

4 #1 REPRIRS & MRINTENRNCE (PERCENT OF DEPP. EC I AT 1CN ) 50 
#2 REPAIR S ii: M R I N T E N R N C E ( P E R C E N T F D E P R E C I R T I N > 2 
#3 REPRIRS & MRINTENRNCE (PERCENT OF DEPRECIATION) 

5 ANNUAL INTEREST RHTE (PERCENT'' 12.00 

6 TAX, LICENSE, INSURANCE, RND STORAGE (PERCENT) 9.00 

7 OP ERR TING SEASON (DRY 3 WORKED-- 'YEAR) 200 

8 OPERATING TIME PER DRY (HOURS) 8.0 

9 FUEL C N S U M P T I N ( G R L L N S / H U R ) 3 . @ 
1* FUEL COST (DOLLARS/GALLON) .80 
1 J OIL R N D L U B E ( P E R C E N T OF F U E L C N S U M F' V 1 H ) 

12 OIL RND LUBE COST (DOLLARS..- GALL ON ) 

13 LINE COST (DOLLARS) 3600 

14 LINE LIFE (HOURS) ItSti 

15 RIGGING COST (DOLLRRS) 1000 

16 RIGGING LIFE (HOURS) 368 

17 TIRE OR TRRCK REPLACEMENT COST ; DOLLARS) 

18 TIRE OR TRRCK LIFE (HOURS) 

19 TOTRL CREW WRGE (DOLLRRS/HOUR) 30.00 

20 FRINGE BENEFITS (PERCENT OF TOTRL CREW WRGE) 30 

21 TRAVEL TIME PER DRY (HOURS) .50 

22 SUPERVISION AND OVERHEAD (PERCENT OF DIRECT LABOR) 20 



2 5 R V G . V L U M E / PIECE R S B U C K E D '.; C U N I T > 

26 DEFECT IN PIECES RS YRRDED (PERCENT) 

27 NUMBER OF YRRDING RORDS IN UNIT 

28 RVERRGE NUMBER OF PIECES PER TURN 

29 RVERRGE NUMBER OF TURNS PER HOUR 
33 TIME PER RORD CHANGE (HOURS) 

31 MOVE IN RND MOVE OUT COST (DOLLRRS) 



. 14 

6. 08 
1 

3.50 
12. 50 

0.00 




OWNERSHIP COST (DOLLRRS.--HOUR ) 
OPERATING COST (DOLLARS/HOUR) 

MACHINE RRTE (DOLLRRS/HOUR) 

GROSS PRODUCTION RRTE (CUNIT/HOUR) 

NET PRODUCTION RATE <CUN IT/HOUR) 



28. 38 
59. 71 



80.01 

6 . 1 3 
5.76 



GROSS YARDING COST (DOLLARS/CUN IT ) 



NET YARDING COST < DOLLARS/CUNI T ) 



13. 06 
13.90 



Figure 11. Printed output from key 1 (Print analysis) for 
EXAMPLE 2. 



RLE 1 OUTPUT 



The values of ownership cost, operating cost, machine rate, g: 
volume/hour (i.e., gross production rate), and net volume/hou 
(i.e., net production rate) can be changed with these keys. A; 
example, the output in figure 11 is modified by pressing key 
and changing gross volume/hour as follows: 

1. GROSS VOLUME/HR: J3AS^ 
NEW VALUED rt (8) 



2. Enter identifier for NEW VALUES (jJLcharac^terjLjma^ 

If nothing is entered (i.e., only the CONT koy If; 
pressed), the existing identifier for tho now values w 
remain unchanged. 

3 . Ente r a new head ing f or ^ Ij^Q^j^gj-Lt^g^ ^hj^rac^^r^s^^ijnui 

If nothing is entered (i.e., only the CONT key in pres 
the existing heading will remain unchanged. 

For output on the printer, the results shown in figure 12 are 
generated. 



LYSIS NITH HEN VflL.UE: Or 
S3 VOLUME/HR 



ME;-, h-....,. 



>. .f LHh 



ERSHIP COST 

R R T I N b C U S "! ( D L L R R 8 / H ' J U R ,' 

HI HE RRTE < DOLL RRS -HOUR) 

S 8 P R D U C T ION R R T E : C U N I T .- H U R > 
P R D Li C T 3. N R R T E -.; C U H I T / H U R ' 



r. 1 



3 S Y R P D ! N G C 3 T '' D L L R R S / C U H I T > 
Y R R D I N G C S T C D L. L R R S / C U N I T : 

jre 12.-- Printed output from key 14 (Change gross volume/ hour) 
EXAMPLE 2, 



c < * -11 

11 I 1 : 



When a peripheral plotter is not available or it is desired t 
first view the yarding cost-production rate curve on the sere 
this key must be pressed* Key 10 or key 26 must be pressed to 
the actual plot* 



Key 9 - Plot on Plotter 

The yarding cost-production rate curve will be plotted direct 
the plotter. Physical plotting limits should be set to 6-1/4 
horizontally and vertically. Key 10 or key 26 must be pressed 
make the actual plot. 

If this key is pressed, the plotter must be turned on before 
proceeding. 



Key 10 - Axes and Plot 

This key is used to construct the axes, label them, and plot 
yarding cost-production rate curves. Key 8 or key 9 must be 
pressed before this key. The procedures, with sample inputs 
corresponding to EXAMPLE 2 UPDATE (figure 12) follow. It is 
assumed that key 8 has been pressed. 

1. Do you want to plot gross rather than net values? (YES o 
(YES) 

Step 1 is skipped if gross and net values are equal? i 
if percent defects is zero. 

2. Want to define range of production rate and yarding cost 
other than 10 and 20 (YES/NO)? (YES) 

The values displayed* represent the limits of the X and 
axes respectively, rounded up to the nearest whole val 
10. 

If (NO) is answered, skip step 3. 

3. Enter; maximum production rate (X axis), maximum yarding 
(Y axis) (10, 30) 

Any values may be entered but the limits will be round 
to the nearest whole value of 10. This input is useful 
changing the scale of the plot, or when subsequent cur 
will be added to the current plot (key 26 - Plot only) 

4. Enter; to plot BASE VALUES; 1 to plot NEW VALUES; 2 t 
plot both (2) 

Either or both curves can be plotted on the axes. 



Key 26 - Plot Only 

Up to nine curves can be plotted on the same axes. The 
curve (s) plotted with key 10 (Axes and Plot) and any ot 
plotted with key 26 (Plot only) are replotted along wit 
current base and/or new values on the axes originally d 
step 4, key 10. Each curve is plotted using a differen 
type. Input is made in response to the following prompt 

Enter; to plot BASE VALUES; 1 to plot NEW VALUES; 2 t 

A new curve can be generated only if one or more chan< 
made through key 0, 11, 12, 13, 14, or 15 prior to pn 
key. 



Key 24 - Hard Copy of Plot 

A hard copy on the internal printer is made if the yard 
production rate curve was plotted on the screen. The cu: 
representing the new and base values from EXAMPLE 2 UPD. 
(fig. 12) are reproduced on the internal printer as shoi 
figure 13. 



Key 4 - New Values Replaced by Base Values 

The new values are replaced by the base values, includii 
identifier and resultant costs and production rates. Th< 
production rate changes made with keys 11, 12, 13, 14, < 
on the new value, not the base value. Thus, if it is dej 
see the effect on yarding cost of changing only owner sh: 
subsequently to see the effect of changing only operatii 
key 4 must be pressed after key 11 and before key 12. 



Key 20 - Base Values Replaced by New Values 

The base values are replaced by the new values, includii 
identifier and resultant costs and production rates. 



Key 7 - Rewind T15 

Rewind the T15 tape cartridge. 
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Figure 13. Printed output from key 24 (Hard copy of plot) for 
EXAMPLE 2. 



Program 
Listings 



34 



97/67 Program 



*L0LA 


21 1! 


857 


W 


.-; ; 

~-ri 


113 


S?C 


16-11 


i 1 UU 


35 H 


858 


ST02 


7cr ;~ " 

v.'%_ : L'*_ 


114 


RCL5 


36 05 


R-i 


~? ; 

"w-i 


5S 


A 


_7c; 


115 


f 


_ c . c 


ENT-J 


~i.'I 


068 


ST05 


35 ee 


116 


$706 


35 B6 


R"4- 


w i 


861 


R^ 


T ? 
w X 


117 


FRTX 


v .* 

"iT 


R; 


-7* 


62 


RCLC 


36 1 3 


118 


SPC 


f r_ < f 

A v i J. 


ENTf 


~"w * 


63 


-* 


^^ 


119 


SPC 


lfc-11 


Rt 


ltJ-3; 


64 


RCLS 


06 ^i" 


128 


RTiN 


ilT 


/. 


=rcr 

wu- 


65 


T 


*L~ 


121 


*LBL1 


21 01 


,-. -r ,-. .- 

O i UC 


?= pc 

w v.' b ; _- 


66 


si+e 


Tcr-crc: p;- 

Wi.' ww t'i. : 


122 


ST* 


35-55 00 


- 


-il 17 


67 


RTN 


- . 


123 


R^ 


-"?! 


TO 


7sr -: -~ 


6S 


*LBLC 


~ : ;" 7 T 


124 


T02 


22 02 


RULD 


3 14 


869 


x=e? 


16-43 


125 


#LEL3 


21 03 


-r 


-24 


878 


GJui 


22 81 


126 


ST+0 


35-55 00 


S7DC 


35 13 


71 


r 


-24 


127 


R4- 


-7' 


RTN 


o * 


72 


ST+e 


35-55 ee 


128 


T04 


22 04 


#LBLri 


u'l 11 


73 


*ieL2 


21 02 


129 


*LBLD 


-: -: .1 

ikl-i A T 


ST04 


7C- p^ 

W W U 1 


74 


R^- 


_ -? , 

V * 


138 


X 


-35 


X2V 


-41 


75 





rr 

Wl_ ; 


131 


A 


"7C" 

""u : w 


A 


-35 


76 


RCL2 


3c 62 


132 


STOD 


7CT T -? 
^'^ i*t 


STOS 


35 0? 


77 


A 


-TC" 


133 


RTN 


24 


R* 


_ "7 ? 


78 


ST-^e 


35-55 SO 


134 


*LBLD 


"-. t - .-: 
*Li 14 


RCLD 


3t N 


879 


RTN 


^'^ 


135 


706 


22 06 


i 


01 


S' 


*LBLC 


i ; l 1 3 


136 


#LBLE 


21 15 


f 


_rc- 


81 


x=e? 


16-43 


137 


STOD 


35 14 


RCiB 


36 12 


82 


eiG3 


2 83 


138 


RTN 


*i.~r 


x 


_7cr 


83 


T 


.-. ,- 
-C.' 1 ? 


139 


*LBLE 


21 15 


ii 


82 


84 


ST+8 


7r_cr(r 7?- 

\J ^-' w ; w' t : C. 


148 


*LBL6 


21 06 


T 


~: .1 

~*l-r 


85 


^iei4 


21 64 


141 


STOn 


jc i -. 

W1- 1 i A 


RCLE 


3f 14 


86 


R^ 


-31 


142 


R^ 


7 -' 
~wi 


T 


-24 


87 


x=e? 


16-43 


143 


X2V 


-41 


RCLb 


36" B'6 


88 


CT05 


.-. .-. .-; CT 

il.il C'w 


144 


i 


01 


T 


_2TCT 


889 


T 


~24 


145 


- 


.1 nr 
-*t^ 


bliJH 


J5 li 


898 


*LBL5 


-- ; .- r 

hi i t' _ 


146 


;.J 


-7=" 


xzv 


.f -f 
-fi 


51 


SJ+8 


7Er_cr=: ^:- 
i_J v.'>_ ( t : L- 


147 


RClb 


36 86 


i 


SI 


52 


RTN 


' -f 

4-1 


148 


A 


-35 


.. 


55 


5'3 


tfLBLC 


L.+ i w 


145 


STOB 


35 12 


& V 


~41 


34 


ST01 


35 01 


158 


Rf 


15-21 


Ri 


-31 


895 


R4- 


7 f 


151 


i 
i 


ei 


X 


T 17 


836 


RCL4 


36 4 


152 





55 


ST00 


35 ee 


37 


~ 


-24 


153 


1 


01 


R+ 


7 

' i 


38 


X^V 


-41 


154 


x;v 


.* f 


i 


61 


33 


i 


01 


155 


- 


-45 


^' 


j-.,- 


1 


*i' 


err 


156 


STOC 


35 13 


RO/ 


35 11 


181 


x^y 


-41 


157 


RTN 


24 


A 


-35 


182 


R4 


-31 


158 


*LBLE 


v r * - 

i-i. Aw 1 


RCLC 


36 13 


183 


1 


01 


155 


*LBL5 


21 es 


RCL 


3fc 00 


184 


f 


-re: 

iji_ ! 


168 


X 


-35 


+ 


_rrir 


185 


I- 


_^cr 

Ww 


161 


X=? 


16-43 


+ 


-rr 

w ; w 


186 


X 


-35 


162 


bT07 


22 07 


RCL9 


36 05 


187 


RCL1 


36 1 


163 


ENTf 


-21 


T 


-24 


188 


";' 


err 

ww 


164 


RCLii 


36 11 


STOS 


35 85 


185 


4- 


-55 


165 


XtY 


-41 


PRTX 


-14 


118 


ST+8 


35-55 00 


166 


ENTf 


-21 


RTN 


24 


111 


RCL0 


36 00 


167 


R* 


-31 


*LBLC 


21 13 


112 


PRTX 


-14 


168 


T 


-24 



165 


sro* 


178 


R* 


171 


R4- 


172 


RCLB 


173 


XiV 


174 


T 


175 


STOB 


176 


ST08 


177 


*LBL2 


178 


8 


175 


STOft 


188 


STOB 


181 


*LBL8 


182 


RCL6 


183 


RCLO 


184 


PRTX 


185 


=- 


186 


ST01 


187 


RCLD 


188 


RCLC 


185 


X 


198 


PRTX 


191 


SPC 


152 


RCL6 


153 


X2V 


154 


r 


155 


ST02 


196 


RCLB 


157 


PRTX 


198 


ST^-1 


135 


RCLw 


28 


PRTX 


281 


SPC 


282 


$7+1 


283 


RCLC 


284 


R4- 


285 


X2V 


286 


RCLC 


287 


Er 


288 


PRTX 


285 


ST-t-2 


218 


R4 


211 


RCLC 


212 


~ 


213 


PRTX 


214 


$7+2 


215 


SPC 


216 


SPC 


217 


RCL1 


218 


PRTX 


215 


RCL2 


228 


PRTX 


221 


SPC 


222 


RTN 


223 


*LBLD 


224 


CTdS 



9845 Program 



10 i ***** YCOST ***** RON MIFFLIN ***** PNW-SEflTTLE, USFS ***** NOV 

26 ! 

30 LORD KEY "K-COST" 

46 INPUT "Want output on the- screen? (YES or NO) - If NO, output i 

the pr i nter . " , B$ 

58 IF B$C1 , i3 = "Y li THEN 90 

68 IF BSCi, 1]<>"N U THEN 48 

76 Pl^e 

86 GOTO 100 

96 P1 = 1S 

180 B*= n " 

11 PRINTER IS PI 

126 fi(32)=B<32)=l 

136 DRTfl 1,3,5,7,8,9, 10', H, 12, 19,23,24,25,27,28,29 

146 GCLERR 

1 56 SHORT FK 39 > , B C 39 ) , C C? , 7 ) , D < 9 , 7 > , E < 46 > , Z7 ( 2 > , Z8 < 2 > 

1 60 SHORT R , R 1 , R2 , R3 , R4 , R5 , R6 ? R7 , R8 , R9 , B , D , E , F , H , H 1 , I , J , K , K 1 , K2 , K3 , L : 

P , P 1 , Q , R , S2 , T , U , N , N 1 , X , X 1 , Z5 

176 ' DIM R*[160],E*[ 100],C$C108],D$C100],E*C 151 , F* C 10Q3 , G$<9>C 100] , H*! 

180 DEFflULT ON 

190 I N P U T " D o y o u w an t- a h e ad i n g f o r a 1 1 o u t p u t ? < Y E S o r N > " , B * 

260 IF B$C 1,, 1] = "Y" THEN 246 

210 IF B*[1:,1]<>"N" THEN 190 

226 H*=B$="" 

236 GOTO 336 

246 I H P U T " E n t e r h e ad i n g ' i n an y f o r m d e s i r e d u p t o 76 c h ar ac t e r s rn a; 

250 IF LEN(H$><=76 THEN 3 1 6 

266 BEEP 

276 FIXED 6 

2 8 H I S P " S o r r y , y o u ' r e " I L E N ' H $ > -76; " c h ar ac t e- r s o '.,' e r t h e 1 i rn i t. o f" 7 6 
n : headi ng = " ; 

296 INPUT H^r 

300 GOTO 256 

310 B*="" 

320 PRINT H*,LIN<2> 

330 PRINT "YflRDING COST PROGRRM" , L I H< 2 > 

346 I N P U T " N u rn b e r o f p i e >: e s o f e q u 1 p rn e n t T. o d e p r e c i at e = ? " , U 

356 M=U 

366 IF U<=9 THEN 468 

376 BEEP 

3 8 6 I N P U T ' ' 9 p i c e s rn a x i rn u rn ! T r y a g a 1 n : n u rn b e r o f * p i e c e s o f e q u i p rn e n 1 
i at e = ? " , U 

398 GOTO 350 

400 IF UO0 THEN 440 

410 BEEP 

426 I H P U T " M i n . o f 1 r e q u i r e d ! T r y ag a i n : n u rn b s r o f p i e c = B o f e q u i p rn < 
eciate = ?",U 

436 GOTO 350 

446 IF IK 6 THEN 486 

458 BEEP 

468 DISP "Screen output may be incomplete for VRRIRBLE CHRNGES & PR 1 1 
rout, i nes ! " 



478 WRIT 7688 

488 FIXED 8 

496 IF U>1 THEN 680 

5 8 8 I H P U T " E n t e r e q u i p rn e n t 1 d e n t i f i e r < 3 8 c h ar ac t e r s m ax i m u m > " 5 G $ < 1 > 

516 IF LEN<G*<1>X=38 THEN 558 

528 BEEP 

5 3 I N P U T u 3 8 c h ar ac t e r- s m ax i rn u m ! T r y aq a i n : e n t e r e q u i p m e n t i d e n t i f 
540 GOTO 510 

550 D I SP " Cost of " ; G# ( 1 : ', " < do 1 1 ar s > = " ; 

560 INPUT C< 1, 1) 

570 IF C U , 1 > < >8 THEN 600 

5S0 GOSUB 2230 

590 GOTO 590 

680 I N P U T " R e s i d u a T ( p e r <: e n t. o f e q u i p m e n t c o s t > = ? " , C ( 1 , 2 ) 

618 I H P U T " B e p r e c i at i o n p e r i o d ( y e ar s ) = ? " , C ( 1 3 ) 

620 IF C<i,3><>8 THEN 658 

638 GOSUB 2238 

648 GOTO 618 

6 5 6 D I S P " R e p a i r s an d rn a i n t e n an c e (. p = c- c. e n t o f s- q u i p M e n t d e p r = c i at i Q n , 
:; 188~C< 1 , 2-" 188/C< 1 , 3 > ; "per year) = "; 

668 INPUT C<1,4) 

678 GOTO 918 

688 FOR X=l TO U 

6 9 8 D I S P " F o r p i e c e # " ; X ; " : E q u i p m e n t i d e n t i f i e r C 3 8 c h ar ac t. e r s rn ax i 
788 INPUT G$<X> 

718 IF LEH<G*(X<=38 THEN 768 

728 BEEP 

7 3 8 D I S P " 3 8 c h ar ac t e r s rn ax i m u rn ! T r y ag a i n : f o r p i e c e t " ; X ; " : e q u i p rr 
f-jer = "; 

748 INPUT G*<X> 

758 GOTO 718 

768 D I S P "For pie c e # " ; X ! " : Cost o f " ; G $ ( X ': ; " < d o 1 1 ar s > = " ; 

778 INPUT C-::X, 1) 

788 IF C<X, 1><>8 THEN 81*3 

798 GOSUB 2238 

888 GOTO 768 

8 1 8 D ISP " F o r p i e c e # " ; X I " : R e s i d u a 1 y a 1 u e < p e- r c e n t o f e q u i p rn e n t c o 5 
828 INPUT C<X,2) 

838 D I S P " F o r- p i e c e tt kl ; X ;; " : Be p r e c i at. i o n p e r" i o d '''. y e- ar"- s ) = " ; 

848 INPUT C':;X,3) 

858 IF C(X,3><>8 THEN 888 

868 GOSUB 2238 

878 GOTO 838 

888 B I S P " F o r piece # " ; X :; " : R e p a i r s k rn a i n t e n an c e < p c t o f e q u i p . d e p 

, 1 > * ( 1 88-C < X ., 2 > > / 1 80.--C < X ,3 > ; " per y r > = " ; 

898 INPUT C<:X,4> 

988 NEXT X 

918 INPUT "Rnnual interest rate (percent) = ?",R<5> 

928 MRT D=C 

938 R*D=M1=8 

948 FOR X=l TO U 

958 D < X , 5 > =D C X , 1 > * < 1 88-D \ X , 2 > > / 1 88 ! depr ec i ab 1 e val ue 

968 IF D(X,3><>8 THEN 998 



978 IKX,6>=8 



D<xifi>=D<X,5>/-D<X,3> ! equipment depreciation 

D=n + ri(X,6)' ! tot.il equipment depreciation 



ISM! 



., 

n = fl ; D (X,7>' ! total average annual investment 

I860 IF P = 6 THEN 10B8 1 repairs 8. mai 

1 076 M 1 =M 1 -i-B : X 4 > *D ', * , b .-< - - B ', . ' * * - -- 

I*** IF X Li THFH 2470 ! go to routine to calculate proauction 

1100 DISP "'Tax, license, insurance, S, storage ( r :c t cf a.g. ann. in 

er ur)="; 

1116 INPUT fi(6) . . H - ..,.- - fll -- ; 

1120 INPUT "Operating season '.days wor *e d/ y* ^' -' - ? ^-- 

1130 IF fl<7)<>0 THEN 1160 

1140 GOSUB 2230 

1150 GOTO 1120 . . ., r ... 

1160 INPUT "Ope r at i n g t i m ? p e r d ay (. h o u r s ' - .- ,*>* o -' 

1170 IF fl<8><>0 THEN 1200 

1180 GOSUB 2230 

1190 GOTO 1160 .. __ .., (l , q , 

1 2 8 I N P U T " F u e 1 c o n s u m p t i o n ( , gall o n s- " h o u r ,' - : ,n -, - .- 

1218 IF R0><>0 THEN 1240 

1220 GOSUE 2230 

1230 GOTO 1280 r . 

1 2 4 I H P U T " F u e 1 c o s t. ( d o I 1 ar s / gall o n ,' = / ' , H - i w ,' 

1250 IF FK 10><>0 THEN 1286 

1260 GOSUB 2230 

1270 GOTO 1240 - - , + . 

1280 INPUT "Oil and lube consumption (percent of tue-1 c onsumpt i ur, , 

1298 IF flCll><>0 THEN 1326 

1300 GOSUE 2236 

1310 GOTO 1280 _ iu ... 

1320 INPUT "Oil an d 1 u b e : o s t ( d o 1 1 ar s - ' gall o n ,< = : , H ', i ^ .-' 

1330 IF R(12><>0 THEN 1363 

1340 GOSUB 2236 

1350 GOTO 1320 

1 360 I NPUT " L i ne c ost C do I 1 ar s ) = ? " , fl < 1 3 ) 

1370 IF Ra3>=0 THEN 1390 

1 3 8 I N P U T " E s t i m at e d 1 i n ? 1 i f e C h o u r s > - ? ^ , fl ' : - 1 4 ; 

1 390 I NPUT " R i gg i ng c ost < do 1 1 ar s ) = ? " , fl C 1 5 ) 

14t30 IF fl(15>=0"THEN 1420 

1419 INPUT "Estimated rigging life (hours) = ?",fl<lb^ 

14291 H P U T " T i r e o r t r ac k r e p 1 ac e m e n t c o s t < d o 1 1 ar s .'' - Y " , fl '-. 1 c ,' 

1439 IF fl<17)=0 THEN 1450 

1449 I N F 1 U T " E s t i m at e d t i r ? o r t r ac k 1 i f e '". h o u r s ) = ? " , FK 1 8 - : ' 

1459 INPUT "Total crew wage (base wage for all crew members, doll 

fl c' 1 9 > 

1468 IF fl(19)<>0 THEN 1498 

1470 GOSUB 2230 



148 GOTO 1456 

149 INPUT "Fringe benefits < per cent of total crew uaqe> = ? ll ,R<20> 

1 5 6 I N P U T " T r a-.,- e 1 t i m e p * r d ay ( h o u r s > = ? " , R < 2 1 > 

1 5 10 D I S P " S u p e r '.,' i s i o n an d o '.,' e r h e ad ( p e r c e n t o f d i r e c t 1 ah o r , $ " ; fi < 1 9 > * < 
100+RC21 )/fl<8 ; "per hour) = "; 

1528 INPUT fK22> 

1 5 3 I N P U T " V o 1 u rn e u n i t. s - ? :; 5 c h ar ac t e r s m ax i m u m > " , R $ 

1540 IF LEN<fl$><=5 THEN 1588 

1550 BEEP 

1 5 6 I N P U T " 5 c h ar ac t e r s in ax i m u n: ! T r y aci a i n : v o 1 u m e u n 1 1. s = ? " , R * 

1570 GOTO 1546 

1 5 8 I N P U 1' "I s k n o w n p r o d u c t. i o n r at .= t o b e e n t e r e d ? ( Y E 8 o r N > " , B $ 

1590 IF B*C1 ;i 13=" N" THEN 1980 

1600 IF B*Clji i]<>"Y n THEN 1580 

161 I N P U T " P e r c e n t d e f e c ", i n p i e c e s as y ar d e d = ? u ,, fi '.' 2 6 > 

1620 I N F 1 U T " M u m b e r o f y ar- d i n g r o ad s- i n u n i t = '? i! , R < 2 ? > 

1630 IF R<271 THEN 1678 

1640 IF R<:.27><>0 THEN 1680 

1650 GOSUB 2238 

1660 GOTO 1620 

1670 I N P U T " T i rn e p e r- r o ad c h an q e ( h o u r s > = ? " , fi ( 3 ) 

1680 B*="" 

1 6 9 D I S P " P r o d u c t i o n r at ? ( " ; L W C * ( R * > ; " .-" h o u r ) ~ ; 
1700 I N P U T R :; 3 6 > ! g r o s s p r o d u c t i o n r a t e 

1710 IF R(36><>0 THEN 1.740 

1720 GOSUB 2230 

1730 GOTO 1680 

1740 B<36)=FK36> 

1750 R ( 37 > =B < 37 > =R < 36 > * ( 1 00-R ( 26 > ) / 100 ! net pr oduc t i on rat e 

1760 I N P U T " N o '..-' e i n an d m o '-,' e o u t. c o s t (. d o 1 1 ar s > = ? " , R < 3 1 > 

1770 IF R'::31>=0 THEN 1780 

1780 IF < R (27 > > 1 > RND ( R < 30 > < >0 ) THEN 1 800 

1790 IF R<31.:'^0 THEN I960 

1800 GOSUB 1830 

1810 GOTO I960 

1820 ! 

1 8 3 ! 8 u b r o u t i n e f o r e n t *? r i n g ar e a & y i e 1 d 

1840 ! 

1850 I N P U T " C u 1 1 i n g u n i t ar e a ( acre s ; = ? " , R < 2 3 > 

I860 IF FK23X>0 THEN 1.890 

1870 GOSUB 2238 

1880 GOTO 1830 

1890 n I SP " Y i e 1 d per ac re < " ; LMC* < R* ) ; " > = " ; 

1900 INPUT fl<24> 

1910 IF R<24X>0 THEN 1940 

1920 GOSUE 2230 

1930 GOTO 1890 

1940 RETURN 

1950 ! 

1 9 6 Z 5 = 1 ! f 1 ag t o p r i n t p r o d u c t i o n d at a 

1970 GOTO 2290 

1980 B$="" 

1990 D I SP " Ruer age yo 1 ume per p i ec e as buc k ed C " ; LUC* < R* ) ; " > = " ; 



2988 INPUT FK25::< 

2618 IF FK25X>8 THEN 2843 

2828 GOSUE 2236 

2838 GOTO 1999 

2 6 4 8 I N P U T " P e r c e n t d e f e c *, i n p i e c e s as y ar d e d = ? " , fi < 2 6 ) 

2 8 5 8 I N P U T' " N u m b e r o f y ar d i n g r o ad s i n u n i t = ? " ? R < 2 7 > 

2968 IF FK27X>@ THEN 269*3 

2878 GOSUE 2238 

2888 GOTO 2858 

2 8 9 8 I N P U T " R y e r ag e n u rn b e r o f p i e c e s p e r t u r n = ? " , R < 2 S > 

2188 IF FK28X>0 THEN 2138 

2118 GOSUE 2238 

2120 GOTO 2098 

2 1 3 I N P U T " R '.,' e r ag e n u m b e r o f t u r n s p e r h o u r = ? " , Fi < 2 9 ) 

2140 IF fi<::29X>8 THEN 2178 

2150 GOSUE 2230 

2160 GOTO 2130 

2170 IF fl<27X = l THEN 2196 

2130 INPUT "Time- p e r r o ad c h an g e- ( h o u r s ) = ? " , R (. 3 8 ? 

2190 INPUT "Mo v e i n an d rn o u e o u t c o s t (dollar s ) = ? " ? R C 3 1 ) 

2280 IF <fl<27l> RND ( R < 30 X >8 ) OR < fl < 3 1 X >8 > THEN GOSUE 1838 

2210 GOTO 2290 

2220 ! 

2230 ! routine to warn against input of 8 for variable yal ue 

2240 EEEP 

2 2 50 D I S P " T h e y a 1 u e o f 8 rn ay n o t. b e- e n t. = r e d f : r t h i s '.- ar i ab 1 e ! It m u s 

t ered . " 

2260 WRIT 5808 

2270 RETURN 

2280 ! 

2290 IF R<31X>0 THEN 2326 

2380 Z7<n=Z7<2>=0 ! rnoye cost 

2310 GOTO 2330 

2320 Z7a>=Z?<2>=FK3l > /R ( 23 ) .--fi ( 24 > ! move cost 

2330 IN P U T " E n t e r i d e n t- i f i e r :! 2 5 c h ar ac t e r s rn ax i rn u rn > " , C * 

2340 IF LEN<C*X=25 THEN ;J3S8 

2358 BEEP 

2 3 60 I N P U T " 2 5 c h ar- ac t * r s m ax i m u m ! T r y ag a i n : e r: t e r i d e n t i f i e r . " , C $ 

2370 GOTO 2348 

2380 D$=Ct 

2 3 9 f -1 R T B = R ! n e w M a 1 u e s = b a s e ., a 1 u e s 

2 4 Q 8 M R T D = C ! n e w M a I u e s - b as e '.,- a 1 u e s 

2410 FOR X=l TO U 

2420 C<X,5)=CCX, 1>*<180-CO< 5 2/108 ! depreciable value 

2430 C<X, S)=C<X, 5).--C(X, 3) ! equi prnent deprec i at i on 

2440 M1=M1 + C<X, 4)*C<X, 6)/ <R < 7 > *R < 8 )* 1 88 > ! total repairs & mainter 

2450 NEXT X 

2460 ! 

2478 ! R o u t i n e t o c a 1 u c: u 1 at e p r o d u c t. i o n r at e an d c o s t s 

2480 ! 

2498 B :: 33 > = < D + fl* <B<5)+B<6 : ) .-" 1 90 ) /B < 7 ) - B < S > ! owner sh i p c ost 

2508 L=R=T=8 

2518 IF <Ba3)=0) OR (B<14)=0> THEN 2538 



2528 L = Bc' 13>/B< 14) 

2538 I F < B ' 1 5 > ~8 > OR <. B < 1 b > =8 ) THEN 2558 

2550 IF CBC17::'=8> OR <B<13>=8> THEN 2578 

2568 T = B':. 17>/B< 18) 

2578 Q ~ :. 1 + B < 2 2 ) / 188 > * < B ( 1 '? ) * c 1 + B ( 2 8 : / 1 8 6 + B :: 2 1 > / B ' 8 > > ) 

2588 B f. 34 ': =M 1 +B < 9 > *B ( 1 8 > +3 < 1 1 > *E < 9 > * B < 1 2 > / 1 00 + Li-R + T + Q ! o&er-at i ng 

2598 B < 3 5 .:> = B < 3 3 ) + E < 3 4 > i m ac h i n * r at e 

2688 IF <:: B < 3 8 > = 8 ': OR < B < 2 * ? .: < - 1 ) THEN 2638 

2618 Z 3 ( 2 > = < B < 2 7 > - 1 } * B < 3 9 > * B C 3 5 ) ' B < 2 3 '> / B ' 24': : s e 1 1 i n g c h an g e cos 

2628 GOTO 2648 

2638 Z 8 ( 2 "' = 8 ! s e 1 1 ing c h an g e c o s t. 

2648 IF E(3i::<^8 THEN 2678" 

2658 Z 7 ( 2 > = B < 3 1 ) / B < 2 3 > / E < 2 4 > ! rn o v e c o s t 

2668 GOTO 26B8 

2678 Z7<2>=@ ! move cost 

2638 IF 25=1 THEN 2788 

2698 B<36>^B>: 25>*B<23::'*BC>9::> ! grofs prod, rate if prod, rate unk 

2700 B < 3 7 , = B < 3 6 > * < 1 8 8 - B ( 2 6 > > / 188 ! r i e t p r o d '..4 c t. i o n r a t <= 

2 7 1 B < 3 8 > = B < 3 5 > / B ( 3 6 > H- Z 7 ' 2 > H- Z 8 ( 2 ) ! g r o s - y a- d i n g c o i t 

2728 B ' 3 9 > = B < 3 5 ) / B < 3 7 > H- :* Z ' ? ( 2 > + Z 8 ( 2 > > .-- >:. < 100- B '-. 2 6 > ; / 1 S 8 > ! n e t y ar- c 

2 7 3 8 IF P - 1 THEN 5218 ! re t u r n t o V H R I f ! B L. C H R N G E 3 r o u t i n e 

2748 MRT R~B 

2758 27 < 1 > ~Z7(2> 

2768 Z8':' 1 >=Z8( 2) 

2778 IF 0.*="" THEN 2888 

2 7 B 8 IMRGE " V a 1 u e s ar e f o r- % 1 8 R , / 

2798 PRINT USING 2738 ; C* 

2 8 8 8 IMRGE / ,, " W N E R 3 H I P COST = $ " , 4 H . H TJ ,, ll -- H U R " 

2818 P R I N T U S ING 2 8 8 8 ; f ] < 3 3 > 

2 8 28 IMRGE " P E R R T I N G ' C S T = $ :l 5 4 D B D : , " / hi U r: (i 

2 8 3 8 P R I N T U S ING 2 8 2 8 ; R < 3 4 > 

2348 PRINT SPR ( 1 7 >,"-- " 

2858 IMRGE "MRCHINE RRTE := * % 4D . DD , " /HOUR " 

2868 P R I H T U S ING 2 8 5 M ; R ( 3 15 > 

2 8 i 7 IF < R < 2 6 : < > 8 > R ' B ( 2 6 > < > 8 > THE M 2998 

2 8 3 8 IMRGE / 8 , " P R D U C T I H R R T E = " , 4 D . U D X , 5 R , " / H U R " , .-- 

2898 P R 1 N T U S ING 2 8 3 8 ; R < 3 6 > , R * 

2988 IF < R < 3 8 ') = 8 > R ( hi < 2 " :? .: - 1 > THE H c 9 3 8 ! i s , n o = e 1 1 i n g c r i an g e 

2918 IMRGE "RORD CHRNGE COST = $ " , 3D . DD I! / " , 5R 

2928 PR I NT US I NG 2918; Z3 < L > , R* 

2938 IF R(31)=8 THEN 2968 

2 9 4 8 I M R G E " M V E I N R N I) Q U T C S T = * " , 3 D D 13 . " / " , 5 R 

2958 PR I NT US I NG 2948 ; Z7 C L ) , fl$ 

2968 I MRGE / / 9 " YRRD I NG COST = $ !l , 4B . BE ? " / " , 5H 

2978 PR I NT US I NG 2968 ; R < 3:3 ) , R$ 

2 9 8 8 G T 3218 

2 9 9 8 I M R G E / ,, " G R S S P R D U C T I N R P, T E = " , 4 D . D D X , 5 R 5 ' ; / H U R " 
3888 PR I NT US I NG 2998 ; R < 33 ) , fi* 

3818 I MRGE / ,, !t NET PRODUCT [ ON RRTE = " , 4D . DUX , 5R ? i! /HOUR Jl ? / 

3828 PRINT USING 38 1 8 ; R ( 3" 7 > , H* 

3838 IF <fi<30>=0> OR (R<2' 7 ) = 1> THEN 3868 

3 8 4 I M R G E " G R S S R R D C H R N G E C S T = * " , 3 D - D D , " / " , 5 R 



S50 PRINT USING 3040;Z8U>,fl* 

*60 IF FK31>=0 THEN 3096 

)70 IMflGE "GROSS MOVE IN flND OUT COST = $ " , 3D . DB, " / ;i , 5fl 

?80 PRINT USING 3070;Z7<:l>,fl$ 

J90 IF Cfl<30)=0> OR <fl<27>=!> THEN 3120 

.00 IMflGE / :l "NET ROflD CHRNGE COST = $ " , 3D - DD ? II / " , 5R 

.16 PRINT USING 3100;Z8<l>/'<100-fl<26*100 > fl$ 

L20 IF FK31>=0 THEN 3170 

,30 IF <C(=K30X>0> flND < FK27) O 1 ) THEN 3150 

L 40 PRINT 

L50 IMflGE "NET MOVE IN flND OUT COST = * " , 3D . DD , " /" , 5fl 

L60 PRINT USING 31 50 ; Z7 < :l >--( 1 00-fl (26 * 180 , fl$ 

[70 IMfiGE /,,/, "GROSS" YflRDING COST = $" , 4D. DD, "/"' , 5fl 

L 80 PRINT USING 3170; fl<3S> , fl$ 

. 90 I MflGE i( " NET YfiRD I NG COST = * " , 4D . DD , " " " , 5fl 

!!00 PRINT USING 31 90 ; fl ( 39 > , R$ 

210 IF Pl=16 THEN 3238 

>20 PRINT USING "/,^,^,> /:i 

230 PflUSE 

i40 GOTO 3230 

250 ! 

i60 ! ********** KEY <VflRIflBLE CHRNGES) ********** 

i70 ! 

280 PRINTER IS 16 

290 PRINT "VRRIRBLE CHRNGES Rout i ne" , L I N( 2 ) 

ii00 PRINTER IS PI 



i: 3 I N P U T " T h e n u rn b e r o f t h e '.-' ar i ab 1 e t o b e c hi an g e d = ? " , N 

J40 FOR X=l TO 15 

150 REflD B ! read da-:. a from statement 65 

560 IF NOB THEN 3390 



380 GOTO 3480 

590 NEXT X 

100 RESTORE 130 

Ll@ IF Z5=0 THEN 3470 

IF OK>25> flND <NO2i3> RND (NO29) THEN 3470 

BEEP 

H D I S P " T h i s ', ar i ab 1 e c an n o t b e c h an g e d i n t h e f k n o w n p r o d u c t i o n '" r at e i 
150 WRIT 6800 
160 GOTO 3320 

178 IF CN<=31> RND <N>0) THEN 3520 
L80 BEEP 

\ 9 I N P U T " V ar i ab 1 e s ar e n u m b e r e d 1-31! T r y ag a i n : n u rn b e r o f t h e v ar i ab 1 e 
: hanged = ?",N 
560 F=6 
510 GOTO 3340 
520 IF N>4 THEN 4023 

530 INPUT "For what piec<? <#> of equipment ?",N1 
540 IF <N1<=9> RND <N>0> THEN 3580 
550 BEEP 



3 5 6 6 I N P U T " El q u i p m e n t p i e : e s ar e n u m b e r e d 1 - 9 ! T r y ag a i n : f o r w h at. p i 

e q u i p m e n t '? " ,, N 1 

3578 GOTO 3546 

3586 IF NK=U THEN 3779 ! see if a new piece is to be added 

3598 IF N1~U=1 THEN 3648 ! see if new p ; e : e # follows last piece 

3688 BEEP 

3618 FIXED 8 

3 6 2 D I S P " N o t e : t h e p i e c * # y o u s e 1 e c t e d i s c h an g e d t o " J U + 1 ; " . P r e s s 

o c e d e . " 

3638 PflUSE 

3648 N1=U=U+1 

3658 IF HK6 THEN 3698 

3668 BEEP 

3678 DISP "Screen output may be incomplete for VrtRIRBLE CHRNGES & PR I 

rout i nes ! " 
3688 WRIT 7888 
3698 IF NO1 THEN 3898 
3788 FIXED 8 

3 7 1 8 D ISP " E q u i p rn e n t i d e n ': i f i e r < 3 8 c h ar ac t e r- s m ax i m u m > f o r p i e c e # " ; 
3728 INPUT G*<N1> 

3738 IF LEKKG*CNnx=30 THEN 3898 
3748 BEEP 

3758 I H P U T " 3 8 c h ar ac t e r s m ax i rri Urn ! T r y a.g a i n : e ri t e r e q u i p *.i\ e n t. i d e n t i 
1) 

3768 GOTO 3738 
3778 IF NO1 THEN 3898 

3788 IF <NK=M) RND < D (N 1 , 1 ) =8 > THEN 3890 
3 7 9 8 ! R o u t i n e t o a 1 1 o w e q u i p m e n t t o b e d e 1 e t e d 
3888 ! 

3818 INPUT "Do y o u w an t t o delete t h i s p i e c e o f e q u i p m e n t ? < Y E S o r N 
3828 IF Bt-Ll,, 1 ] = " N " THEN 3898 
3838 IF B*C1,, 1 ]<>"Y" THEN 38 18 
3848 D < N 1 , 1 > ;=H < N 1 , 2 ) =D C N 1 , 3 > =D ( N 1 , 4 > =0 

3 8 5 8 I F U < = M THEN 44 8 8 ! s e e i f d e 1 e t e d p i e c e i.,< as p r e v i o u s 1 y an a 
3 8 6 8 U = U - 1 ! r e d u c e n u rri b e r o f p i e c e s b y o n e 
3878 GOTO 4488 



3 898 IF < D < N 1 , 1 > < > 8 > OR < D ( N 1 , 2 > < > 8 ) R < D < N 1 , 3 > < ; > R ( D < H 1 , 4 > < > 8 > 

3988 GOSUB 4678 

3918 GOTO 4488 

3928 FIXED 8 

3938 D I SP " BRSE VRLUE == u ; i; C N 1 , N > ; " LRST VflLUE = " ; D < N 1 , N ) ; " NEW Vfi 

3948 INPUT J 

3958 IF <F<>9) RND <J=8> THEN 3930 

3960 D<N1,N)=J 

3978 GOTO 4480 

3988 BEEP 

3998 D I S P " T h e y a 1 u e o f 8 m ay n o t b e e n t e r = d f o r t h i s y ar i ab 1 e ! 1 1 m 

nt e-red. " 

4080 WRIT 6080 

4010 GOTO 3920 

4020 FIXED 2 

4030 DISP "BRSE VRLUE ==" ; fl<N> ; " LRST VRLUE = " ; B< N> ; " NEW VRLUE = 



4049 INPUT J 

4650 IF <F<>6::' RND = 8) THEN 4680 

4060 B(H>=J 

4070 GOTO 4160 

4088 IF <N<>23) flND CNO24) THEN 4128 

4090 IF <E(2?)>1) RND CB<:30X>0> THEN 4126 

4106 IF B<31X>0 THEN 4128 

4110 GOTO 4060 

4120 BEEP 

4 1 3 D I S P " R '., a 1 u e o f m ay n o t b e e n t e r e d f o r t h i s '-' ar i ab 1 e ! 1 1 m u s t 

ered." 

4140 WRIT 6060 

4150 GOTO 4020 

4160 IF (NO27) flND <NO3fl> RND <N<>31) THEN 4480 

4170 IF NO27 THEN 4240 

41 8Q IF <B<3QX>0> OR CBC27X = 1> THEN 4320 

4 1 9 I N P LI T " T i rn e p e r s e t 1 i n g c h an g e- < h o u r s > = ? " , E < 3 > 

4200 IF E(300 THEN 4320 

4210 BEEP 

4220 I N P U T " V o L4 rn u = t e n t e r a y a 1 u e g r e at e r t. h an ! T r- y ag a i n : t. i m e p e r 

chg Chr> = ?",,B(30) 

4230 GOTO 4280 

4240 IF N030 THEN 4320 

4250 IF <B<271> OR < B : 3tf ) =0 ) THEN 4320 

4260 INPUT " H u m b e r o f s e t <:. ings i n u n i t = ? " , B ( 2 7 > 

4270 IF E(27l THEN 4320 

4280 BEEP 

4290 INPUT " R '.,al ue of 2 or more must be entered! Try again: number of 

in unit = ?",BC27> 
4300 GOTO 4270 
4310 ! 

4320 ! Routine to supply values for area & yield if needed 
4330 ! 

4340 IF <B<27X = 1> OR < B< 30) =6 > THEN 4486 
4350 IF <B<23X>0> RND < B C24 > <>0 ) THEN 4480 
4360 INPUT " C u 1 1 i n g u n i t .ar e a ( ac r e s > = ? " , E c. 2 3 ) 
4370 IF B<230 THEN 4410 
4380 BEEP 
4 3 9 I H F' U T " V o u rn u s t e n t e r- a v a 1 u e g r e at e r t h an ! T r- v 1 ag a i n : c u 1 1 i n q 

(acres) = ?",B<23) 
4400 GOTO 1884 

4410 DISP "Yield per acre < " ; LWC*<fl*> ; " > = " ; 
4420 INPUT B<24> 
4430 IF B<24)>0 THEN 4480 
4440 BEEP 

4 4 5 INPUT " V o u m u s t e n t e r a '.,' a 1 u e g r e a t e r t h an ! T r y a g a i n a . y i e 1 d p e 
?",E<24> 
4460 GOTO 4430 
4470 ! 

4480 IN P U T " R n y m o r e v ar i ab 1 e c h an g e s d e s i r e d ? ( Y E S o r N > " , B * 
4490 IF B$C1 :I 1] = "Y" THEN 3300 
45Q0 IF BSCl, 13<>"N" THEN 4480 
4510 B$="" 



4529 IF CB<27) >1> RND <B<:'30)<>0) THEN 45^6 

4539 IF B<31)=8 THEN 5849 

4548 IF <B<23)<>0> RND < B :! 24 X >8> THEN 5840 

4558 I N P Li T " C u 1 1 i n g u n i t ,ar e a < ac r e s > = ? " , B < 2 3 > 

4568 IF B<230 THEN 4688 

4578 BEEF 

4 5 B I N P U T " Y o u m u s t e n t e r a u a 1 u e g r e at e r t h an 8 ! T r y aq a i n : c u 1 1 i n c 

(acres) = ? " , B <23> 
4598 GOTO 4568 

4 6 8 D I S P " Y i e 1 d p e r ac r e :! " ; L W C * < fl $ ) ; " ) = H ; 
4618 INPUT B<24> 
4620 IF B(248 THEN 5848 
4638 BEEP 

4648 INPUT "You must enter a value greater than 8! Tr-., 1 again: M i e 1 d f 
?%B(24> 
4658 GOTO 4628 
4668 ! 

4678 ! Routine to in s u r e v h at v ar i ab 1 e s # 1,2,3 8, 4 h a v e all b e e n g i '., * 
46 S 8 ! when a new piece o- :< equipment is added 
4698 ! 

4788 FIXED 8 
4718 FOR X=l TO 4 

4728 ON N GOTO 4738,4748,4750,4768 
4738 ON X GOTO 4778 , 4898 ', 4928 , 4998 
4748 ON X GOTO 4898 , 4778 , 4928 , 4998 
4758 ON X GOTO 4928,4770,4898,4990 
4768 ON X GOTO 4999,4778,4898,4928 
4778 IF XOM THEN 4848 

4788 D I S P " E q u i p m e n t i d e n % i f i e r < 3 8 c h ar ac t. e r s m ax i in u m ) f o r p i e c e- ft " ; \ 
4790 INPUT G*<N1) 

4880 IF LEN<G*<N1 ))<=38 THEN 4848 
4810 BEEP 

4 8 2 I N F' LI T " 3 8 c h ar ac t e r s rn ax i m u m ! T r v ag a i n : e n t e r e q u i p m e n t. id e n t i i 
1 > 

4830 GOTO 4880 

4840 D I SP "For p i ec e # " ; N 1 ; " : Cost of " ; G* ( N 1 ) ; " < do 1 1 ar s ) = " ; 
4850 INPUT IKN1, 1) 
4868 IF D<N1,1)<>0 THEN 5818 
4878 GOSUB 3768 
4888 GOTO 4840 

4 8 9 D I S P " F o r p i e c e # " ; N i ; " : Re s i d u a. 1 u a 1 u e ( p e r c e n t o f e q u i p m e n t c c 
4988 INPUT D<::N1,2> 
4918 GOTO 5818 

4928 DISP "For piece tt";N.L;": Depreciation period (years) = i! ; 
4938 INPUT D 0*1,3) 
4948 I F D :: N 1 , 3 > < >9 THEN 56 1 8 
4958 BEEP 

4968 DISP "The yalue of 8 may not be entered for this variable! It nu 
n t e r e d . " 
4970 WRIT 6086 
4980 GOTO 4920 

4990 DISP " F o r p i e c e # " ; N 1 ; " : R e p a i r s an d m a i n t e n an c e ( p e r c e n t o f e q , 
rec i at i on) = " ; 



5100 INPUT D<Ni,4> 

5 10 NEXT X 

320 RETURN 

3 3 ! 



[156 K=l 

36 I N P Li T " E n t e r i d e n t i f i e r f o r N E W V fl L U E S < 2 5 c h ar ac t e r s rn ax i rn u m > . " , D $ 

370 IF LEN<Jj*::>25 THEN 5118 

330 BEEP 

3 9 I N P U T " 2 5 c h ar ac t e r s m ax i m u m ! T r y ag a i n : e n t e r i d e n t i f i e r f o r N E W V fl L 



100 GOTO 

LIQ I H F' U T " E n t e r a n e w h = ad i n g f o r a 1 1 o u t p u t ( 7 Q r h ar ac t e r s m ax i rn u rn > . " . H 

120 IF LEN<H*X=70 THEN 5180 

L30 BEEP 

140 FIXED 

L 5 D I S P " S o r r y , y o u "' r e " ; L E H < H * ) - 7 6 ; " c h ar ac t e r s o <.,' e r t h e 1 i m i t o f 7 ! T r 

; headi ng = " ; 

16 INPUT H* 

[70 GOTO 5126 

.88 FIXED 2 

.96 P=l 

200 GOTO 930 ! c a 1 c u 1 at e b as i s of o w r, e r s h i p c o s t 

>10 PRIJSE 

i20 GOTO 5210 



> 4 @ i * * * * * * # * * * K y 2 < P R R T 1 > ****** * * * # 
i50 ! 
:60 S=l 
>76 ! 

>S0 ! ********** KEY 1 (PRINT fiNFiLYS IS) ^****^-**** 
*90 ! 

500 IF P1OQ THEN 5480 
!:10 IF H$=" 11 THEN 5330 
J20 PRINT H*,LIN(2> 

iJ39 I F < C$= " " ) RND < D$= " ' ) THEN 5380 

540 IMflGE "RNRL'y'SIS OF VHRIRBLE CHflNGES BRSE VflLUES = n ,25R,x, 

\ VflLUES = ",25fl,/ 
550 PRINT USING 5340; 0$, D* 

560 PRINT TflB<56>, "BfiSE* NEW PERCENT" 

570 GOTO 5470 

580 PRINT USING "28R , / , 555X, 4R, 5X , 3R, 5X, 7R " ; "RNRLYSI S OF VRRIRBLE CHflNGES" 
"NEW", "PERCENT" 
590 GOTO 5470 
130 IF H*= ui| THEN 5420 
U0 PRINT H$,LIN<2) 

IF <C$=""> RND ai$=" :I > THEN 5460 

IMflGE "RNRLYSIS OF VRRIRBLE CHflNGES BRSE VflLUES = ",25R,x, 

. >",32X, "NEW VflLUES = "..ISfl,/ 
^48 PRINT USING 5430;C*,D* 
^50 GOTO 5360 

^60 PRINT USING "28R, x, 8R, 31 X, 4fl, 1 0X, 3fl, 6X, 7R" ; "RNRLYSIS OF VRRIflBLE CHflNi 
>RRT IV, "BRSE", "NEW 11 , "PERCENT" 



5470 PRINT TflB<55>, "VRLUES VRLUES CHflHGE " , L IN < 1 > 

548 IF U>1 THEN 5776 

5490 E=l 

5580 GOSUB 5678 

5510 IMRGE "1 COST OF H ,;30fl," ( DOLLRRS > " , SB ? 1 8D , 6D D 

5520 PRINT USING 55 1 8 ; LUC* < G$ ( 1 , C ( 1 , 1 > -, D < 1 , i > W 

5530 E = 2 

5540 GOSUB 5670 

5550 IMflGE "2 RESIDURL '.'.PERCENT OF EQUIPMENT COST ) " , 2 I D , 1 QD , 6D. D 

5560 PRINT USING 5550; C< 1 , 2> , D< 1 , 2> , W 

5570 E=3 

5530 GOSUB 5670 

5590 IMRGE "3 DEPRECIRTIOH PERIOD < VEfiRS) " , 38D , 1 QD , 6D D 

5600 PRINT USING 5590; C< 1 , 3) , IK 1 , 3 > , W 

5610 E=4 

5620 GOSUB 5670 

5 6 3 IMRGE " 4 R E P R I R S R N D M ft I N T E N R H C E < P E R C E N T F D E P R E C I fi T I H > !I , 8 D , 18 D 

5640 PRINT USING 5636 ; C < 1 > 4) , D < 1 , 4 > , N 

5650 GOTO 6300 

5660 ! 

567 ! s u b r o u t i n e t o c o m p u t e ";' c h a n q e 

5680 IF C(1,E><>0 THEN 5746 

5690 IF D<1,E)<>0 THEN 5728 

5700 W=0 

5710 RETURN 

5720 N-180 

5730 RETURN 

5740 W = 1 00* < D < 1 , E > -C < 1 , E > > --'C I 1 , E > 

5750 RETURN 

5760 ! 

5770 IMRGE "1 #1 COST OF ', 38R, !l < DOLLRRS : " , 8D , 1 0D , 6D . D 

5780 PR I NT US ING 5779 ; LUC* ( G$ ( 1 , C ( 1 ? 1 > , IK 1 , 1 ) , 1 80* ( D < 1 , i > -C ( i , 1 ) > /C < 1 , 

5790 FOR X=2 TO U 

5800 IF C<X,10 THEN 5866 

5810 IF D<X,1>=0 THEN 5843 

5820 W=100 

5830 GOTO 5878 

5848 W=0 

5858 GOTO 5878 

5868 W= 1 00* < D ( X , 1 > -C ( X.I) > /C < X , 1 > 

5878 IMRGE " t " , D , !1 COST OF % 38R , !i -.; DOLLRRS > !i , SD , 1 8D , 6D . D 

5888 PRINT US I NG 5876 ; X , LNC* < G* ( X , C ( X ? 1 > , D < X , 1 ) , N 

5898 NEXT X 

5908 IMRGE "2 #1 RESIDURL (PERCENT OF EQUIPMENT COST) " , 19D, 10D, SD. D 

5918 PRINT USING 5988 ; C ( 1 , 2> 3 D < 1 ,, 2 > , 1 00* < D < 1 , 2 > -C < 1 , 2 > > xC<i , 2 ') 

5928 FOR X=2 TO U 

5938 IF C(X,28 THEN 5998 

5948 IF D<X,2)=Q THEN 5978 

5958 W=100 

5968 GOTO '6088 

5978 W=0 

5988 GOTO 6008 

5998 W= 1 90* < D < X , 2 > -C < X , 2 > > /C < X , 2 ) 



300 IMflGE " #",11," RESIDURL (PERCENT OF EQUIPMENT COST ) " , I 9D , 1 8D , 6D . D 

319 PRINT USING' 6000;X,C-::X,2),D<X,2),W 

320 NEXT X 

336 IMflGE "3 #1 DEPRECIflTION PERIOD ( YERRS .< l: , 28D , 1 0D , 6D . D 

340 PR I NT US I NG 6030 ; C ( 1 , 3 ) , D ( 1 , 3 ) , 108* < D U , 3 ) ~C ( 1,3) ) /C ( 1 , 3 > 

350 FOR X=2 TO U 

360 IF C<X,3)>0 THEN 6126 

370 IF D<X,3>=0 THEN 6186 

380 W=100 

390 GOTO 6130 

100 W = 

110 GOTO 6130 

120 W= 1 00* < D < X , 3 > -C ( X , 3 > : /C < X , 3 > 

130 IMflGE " r',D," DEPRECIRTiON PERIOD ( VERRS > " , 28D , 1 6JD , 63 . D 

140 PRINT USING 6 130; X, C :: X , 3 ) , DC X , 3 ) > U 

150 NEXT X 

160 IMflGE "4 #1 REPflIRS :;, MfllNTENflNCE (PERCENT OF HEPREC I flT I ON > " , 3D , 1 0D , 61 

170 PRINT USING 6 1 60; C ( 1 :l 4 ) , IK 1 ? 4 > , 100* ( D ( 1 , 4) -CX 1 , 4 > ) --T: ( 1 , 4 > 

180 FOR X=2 TO U 

190 IF C<X,40 THEN 62515 

200 IF D(X,4>=0 THEN 6238 

210 W=100 

220 GOTO 6260 

230 N=0 

240 GOTO 6260 

250 N= 1 00* ( D ( X , 4 > -C ( X , 4 > : /C ( X , 4 > 

Z60 IMflGE " #",D," REPflIRS & MR I NTEHflNCE (PERCENT OF DEPRECIflTION) ", 3D, 1 ( 

270 PRINT USING 6260 ; X, C : X , 4 ), D( X , 4 ) , N 

280 NEXT X 

298 H=l 

300 FOR X=5 TO 39 

310 IF FKX><>0 THEN 6370 

320 IF BOO <>0 THEN 6350 

330 EOO=0 

340 GOTO 6380 

350 E(X)=10 

360 GOTO 6380 

370 E < X ) = 1 60* :: B ( X ) -fl ( X > ) .'fl< X ) 

380 NEXT X 

390 IF Hl=l THEN 6960 

400 IMflGE "5 RNNLIRL INTEREST RRTE (PERCENT) % 24D . DD , ?D . DD , 6D . D 

410 PRINT USING 6400; R( 5 : , B ( 5> , E< 5 ) 

420 IMflGE "6 TflX, LICENSE, INSURRNCE, flHD STORRGE ( PERCENT ) " , 1 0D . DD , 7D . DD , t 

430 PRINT USING 6420; R(6 : , E(6> , E< 6) 

440 IMflGE "7 OPERflTING SERSON (DRYS WORKED/' YEflR >", 22D, 1D, 6D. D 

450 PRINT USING 6440; fl(7> , B<7) , E<7) 

460 I MflGE " 8 OPERRT I NG T I ME PER DRV (HOURS ) " , 25D . D , 8D . D , 6D . D 

476 PRINT USING 6460; fl( 8 : , B( 8) , E( 8 ) 

480 I MflGE " 9 FUEL CONSUMPT I ON ( GRLLONS/HOUR ': " , 23D . DD , 7D DD , 6D . D 

496 PRINT USING 6480; fl( 9 :> , B( 9) , E< 9 ) 

500 IMflGE "10 FUEL COST SDOLLflRS/GflLLON) " , 28D. DD, 7D. DD, 6D. D 

510 PRINT USING 6500; H( 1HD , E ( 18) , E( 10) 



IGE 

NT 
IGE 

NT 
IGE 

NT 
IGE 

NT 
IGE 

NT 
IGE 
!NT 
*GE 
;NT 



INT 
1GE 
:NT 
iGE 
INT 
iGE 
:NT 



INT 
S= 
Pl 

[NT 
Pl 

[NT 



"11 OIL RND LUBE (PERCENT OF 

US I NG 6528 ; fl ( i 1 > , B ( 1 1 > , E < 1 1 ) 

" 1 2 I L RND LU3E " COST ( DOLLRR 

USING 6540;R(12> ? B(12>,E(12;' 

"13 LINE COST < DOLLRRS > " , 3SD , 1 0D , 6D. D 

USING 6560;R(i3> 5 B(i3> ? E(13> 

"14 LINE LIFE HOURS > "\ 4D , 1 D , 6D , D 

USING 6580;R(14>,B(14::',E(14> 

"15 RIGGING COST ( DOLLRRS >"< 35D , i 8D , 6 

USING 6600;fla!5>,B<15>,E<15> 

" 16 R I GG I NG LIFE (HOURS ) " , 37D 

USING 6620;R(lb> ? B<16),E'::ib> 

"17 TIRE OR TRRCK REPLRCEMENT 

USING 6648 ; R( 1 ? >, B ( 17 ) , E :' 17) 

"18 TIRE OR TRRCK L I FE ' ( HOURS 

USING 6660;n<i:3),B<18>,E<18> 

"19 TOTRL CREW WfiGE ( BOLLRRS/HOUR > 

USING 6680;fl<19),BO9>,E<19> 

"20 FRINGE BENEFITS (PERCENT 

USING 676Q ; R C 2tf >,, B( 20 ::<,( 2Q > 

"21 TRRVEL TINE PER DRV < HOURS) 

USING 6720;FK2l>,B<21>,E<21> 

"22 SUPERVISION RND OVERHERD 

USING 6740;R(22) , B ( 22 > , E ( 22 > 

l THEN 6780' 

=0 THEN 6930 
LIN<4> 

=0 THEN 6810 

****** PRESS KEY 3 OT'RRT 2 



FUEL CONSUMPTION V , 15D, 10D, 6D. D 
S^GRLLON > " , 26D . DD , 7D . DD , 6H . D 



10D, 6D D 

COST ( DOLLRRS ) " , 1 7D , 1 0H , 6D . D 

11 , 3in ? i0n, 6iu D 

,24D.DD,7D.DD,SD.D 
OF TOTRL CREW WRGE > t! , 1 3D , 1 0D , 6D. D 

D, DD, 7D DD, 6D. D 
( PERCENT OF D I RECT LflBOR > !i , 7D , 1 0D 9 6D . D 



TO IHSPLRV REMRINI'ER OF RNRLVSIS 



[1 

JSE 

fO 6810 

********** KEY 3 (PRINT RNRLYSIS - PRRT 2) 



ERSE VRLUES = " , 25R , / , ll < PRR 



H$= nil THEN 6900 
INT H*,LIN(2> 

=IGE "RNRLYSIS OF VRRIRBLE CHRNGES 
* 9 "NEW VRLUES = " fl 25fl, / 
INT USING 6900;C$,D* 

I NT TRE ( 56 ) , "ERSE NEW PERCENT " , L I H ( 1 > , TRB ( 55 > , " VRLUES VRLUES 
11 , L I N < 1 > 

H=l THEN 6960 
= 1 

TO 6290 
Hl=0 

(Pl=16> OR (S=2> THEN 6990 
INT LIN(2> 
3 

(Z7(l>=0> RND (Z7<2)==@> RND (Z8(l)=0> RND (Z8(2>=0> THEN 7056 
RGE " 23 CUTT I NG UN [ T RRER ( flCRES > !1 , 32D , 1 0D , 6D . D 



7620 PRINT USING 791 9; ft ( 2:3) , B < 23) , E ( 23) 

7630 I MfiGE " 24 V I ELD PER flCRE < " , 5ft , " ':< " ? 32B . DD , 7D . BD , 6B . D 

7040 PRINT USING 7030; fi*, fl<24> , B<24> , E<24> 

7Q58 IF Z 5 = 1 THEN 7 8 8 8 ! k n o w n p r o d u c t i o n r at e 

7060 IMflGE "25 RVG. VOLUME/'P IECE flS BUCKED ( " 5R, " ) " ? 1 9B . DD , 7D. DD , 6D - D 

7078 PRINT USING 7960 ; fl$, fi<25 > , B ( 25 > , E<25 > 

70S8 IMflGE "26 DEFECT IN PIECES RS YRRDEB ( PERCENT) 1! , 1 3D . Blu 73 , DH , SB . 

7098 PRINT USING 7889; ft (26) 3 B( 26) , E (26) 

7100 IF <Z5=8) OR (R(27)=6) THEN 712Q R<27>=8 only if known p. 

7118 IF <fK27X = l> RND (E::27X = J> THEN 7148 ! set ting 

7120 IMflGE "27 NUMBER OF VflRDING RORHS IN UNIT" , 26D, 1 8D, 6D. D 

7138 PRINT USING 7 120; fl (2?) , B( 27 ) , E (27) 

7148 IF Z5=l THEN 7198 ! known production rate 

7158 IMRGE "28 RVERRGE NUMBER OF PIECES PER TURN" , 21 B . DD, 7B. DD , 6D.D 

7168 PRINT USING 7 158; R ( 2:3) , B(28) , E (28) 

7178 IMRGE "29 RVERRGE NUMBER OF TURNS PER HOUR" , 22B . DD , 7D . DD , 6B . B 

7188 PRINT USING 7 1 79; R (29 ) , B C29 ) , E (29 > 

7190 IF (Z5 = 0> OR <FK27>=9/ THEN 7216 

7200 IF <FK30>=0> RNB (B<:30)=0> THEN 7239 

7210 IMRGE "30 TIME PER RGRB CHflNGE (HOURS > " , 26H . DD , 7B . DD , 6D . D 

7228 PRINT USING 7210; R (33) , B<30> , E (38) 

7230 IMRGE "31 MOVE IN RND MOVE OUT COST cDOLLflRS) " , 22D, 10D, 6D. D 

7240 PRINT USING 7230; ft (3 1) , B (31 > , E (31 > 

7250 PRINT 

7260 PRINT 

7270 I MRGE / ,, / , " ONHERSH I P COST < DOLLflRS/HOUR ) " ? 28B . DD , 7D . DD , 6D . B 

7280 PRINT USING 7270; R(33) , BC33 ) , E (33) 

7290 IMRGE "OPERflT ING COST ( DOLLflRS/'HOUR) " , 2SD . BB , 7B . DD , 6D.D 

7300 PRINT USING 7290; ft ( 34 ) , B ( 34 > , E ( 34) 

7310 PRINT SPfl<54>," " 

7320 IMRGE "MflCHINE RflTE \ BOLLRRS/HOUR) " , 36D . DD, 7D, BB , 6H . B 

7330 PRINT USING 7329; R ( 35) , B< 35 ) , E ( 35 ) 

7340 IF (R(26)<>6) OR* (B<26)<>0> THEN 7618 

7350 IMRGE .', "PRODUCTION RRTE ( !i , 5fl, "/HOUR) " ., 29D. BB, 7B. BB, 6D. B 

7360 PRINT USING 7350; fl$, R (36) , B ( 36 ) , E< 36 ) 

7370 IF <fl<30><>0) RNB (R:;27)>1) THEN 7398 

7380 IF (B(30>=0) OR <B(2?)<=1) THEN 7480 

7390 IMRGE "ROflD CHflNGE COST ( DOLLRR3/ " , 5fl , " ) " , 25B . BB , 7D . DD, 6D . B 

7400 IF Z8(l)<>0 THEN 7466 

7419 IF Z8(2)=0 THEN 7446 

7420 N=l@0 
7430 GOTO 7470 
7440 U=0 

7450 GOTO 7470 

7460 W= ( Z8 :: 2 ) -Z8 < 1 ) ) /Z8 ( 1 > * 1 00 

7479 PRINT USING 7398; fl$, 28 < 1 > , Z8 (2 ) , N 

7489 IF (fl<31)=0) RNB (BC31)=0) THEN 7588 

7499 IMRGE "MOVE IN RNB OUT COST (BOLLRRSx ll , 5R ,">", 21 B . BD , 7D . DD, 6B . B 

7509 IF Z7<1X>@ THEN 7566 

7519 IF Z7(2)=0 THEN 7540 

7529 W=106 

7539 GOTO 7578 

7549 N=0 



GOTO 7570 

W= ( Z7 < 2 > -Z7 < 1 > > /Z7 < 1 .) * 1 00 

PRINT USING 7490;fl*,Z7<i>,Z7<2>,N 

IMRGE /,/,, "YflRD ING COST < DOLLRRS/ " , 5R , " > " , 29B . DD ? 7B . DB , 6D . D 

PRINT USING 7580;fl*,R<38>,B<38),E<38>' 

GOTO 7990 

IMRGE /, "GROSS PRODUCTION R-RTE -L " , 5fl, "/HOUR > h 

PRINT USING 7610;fl*, R (36 > , B < 36 > , E-^36) 

IMRGE .--.."NET PRODUCT t ON RRTE C " ', 5R , " /HOUR) " , 25D . DD , 

PRINT USING 7630;fl*,fl<37>,B<37> ? E<37> 

IF <FK30X>> RND <fl;27l> THEN 7676 

IF (B<30>=0> OR <B<27X = n THEN 7766 

IMRGE "GROSS RORD CHRNGE COST (DOLLRRS. 

IF Z8<1X>0 THEN 7748 

IF Z8(2>=0 THEN 7720 



)B, 7B. DD 
7D. DB, 6 



H . D 



5R , " > " , i 9B . DD , 7D . DD , 6B . D 



GOTO 7750 



cr Q 

j - j H , 



15D. UU,7D.DD,6 



GOTO 7750 

N= < Z8 < 2 > -Z8 < 1 > > --Z8 < 1 > * 1 00 

PRINT USING 7670;fl*,:?8<n,Z8<2)j,N 

IF ' (R(31 >=0> RND CB<:31>=0> THEN 7866 

IMRGE "GROSS MOVE IN RND OUT COST < DOLLRRS. 

IF Z7(l><>0 THEN 7848 

IF Z7<2)=0 THEN 7820 

Wl=108 

GOTO 7850 

Nl=0 

GOTO 7850 

N 1 = < Z7 < 2 > -Z7 < 1 .--Z7 < L ) * 1 00 

PRINT USING 777;fl*,Z7<l>,Z7<2),Wl 

IF <fl<30X>0> RND (R::27l> THEN 7880 

IF (B(38>=0> OR <B<27X = 1> THEN 7906 

IMRGE .-VNET RORD CHRNGE COST < DOLLRRS/ " , 5fl, ">" 

PRINT USING 7880;R$,Z3<l>.--a08-R<26*10ei, Z8(2) 

IF <R(3i::'=0> RND CB<31)=0> THEN 7950 

IF <FK30X>0> RND <B-;30X>8) RND <R(271> RND 

PRINT 

IMRGE "NET MOVE IN RND OUT COST < DOLLRRS/" 5R , " 

PR I NT US I HG 7938 ; fl* , Z7 ( 1 ) / U 0-fl < 26 * 1 00 , Z7 < 2 ) 

I M fl G E / ,, / , " G R S S Y R R '."J I N G C S T ( D L L R R S - ' " , 5 fl , " > !l 

PRINT USING 7950;fl*,R<38>,B<38>,E<38) 

IMRGE /,, "NET YflRDING COST C DOLLRRS-- " 5R , 

PRINT USING 7970;fl*,R<39>,B(39),E<39> 

IF Pl=16 THEN 8810 

PRINT USING "'V'S'V-' 1 

PflUSE 

GOTO 8810 

I 

* KEYS 11,12,13,14 & 15 (CHRNGE OWNERSHIP COST, OPERRTI 
MflCHINE RRTE, GROSS VOL/HR & NET VOL/HR) 



.21D. 1111,711. 
( 10Q-fl<26> 



1. D 
, W 



B<271> THEN 7930 

" , 17D. DD S 7D. DD, 6D. 
( 100-i=l<26*100, Wi 
23D. DD, 7D. DD 5 6D. D 



11 , 25D.BBj.7B. DD ? 6D.D 



key 11 



:t E*="GNNERSHIP COST" 

[1 GOTO 8256 

3 N=34 ! key 12 

3 E*="OPERRTING COST" 

[1 GOTO 8256 

3 N=35 ! key 13 

[1 E*="MRCH1NE RRTE" 

3 GOTO 8258 

3 N=36 ! key 14 

3 IF 25 = 6 THEN 8209 

3 E*="VQLUME/HR" 

3 GOTO 8259 

3 E*=" GROSS VOLUME/HR" 

3 GOTO 8258 

3 IF Z5=l THEN 8169 ! key 15 

3 H = 37 

[1 E*="NET VOLUME/HR" 

[1 FIXED 2 

[1 PRINTER IS 16 

3 PR I NT US i NG " 6fl , X , 1 5R X , 7R > / , / " ; " CHfiHGE " , E* , " Rout i ne " 

[i PRINTER IS PI 

[1 D I S F E $ ; I! : E R 8 E V R L I J E = " ; fi ( N ) ; " L R S T V R L U E = " ; B < N > ; " N E W V R L U E = " 

3 INPUT B(N> 

3 IMP U T " E n t e r 1 d e n t i f i e r f o r N E N V R L U E S v 2 5 c h ar ac t e r s ;T; ax i rn u m ) " ? F * 

3 IF F$="" THEN 8388 

3 IF LEN(F*0<=25 THEN 8378 

3 BEEP 

3 I N P U T ' ' 2 5 c h a r a c t e r s m a x i rn u rn ! T r y a g a -5 r I e i -i t e r- i d e n T. i f i = r- f o r- H E W V H L Li E 

3 GOTO 8320 

3 B*=F$ 

:1 I N F 1 U T " E n t e r a n e w h = ad i n g f o r a 1 1 o u t p u t < 7 Q c h ar ac t s r s m ax 1 rn u m > . " , H $ 

3 IF LEN(H*><=70 THEN 3460 

3 BEEP 

H FIXED 

3 D I S P "So r r y , y o u "' re" ; L E N < H $ > - 7 ; " c h ar a : t e r s o '/ e r t- h e I i m i t o f 7 8 ! T r y 

ieadi ng = " ; 

3 INPUT H* 

3 FIXED 2 

3 GOTO 8396 

3 K=l 

3 IF N=35 THEN 8490 

3 B ( 3 5 ) = B < 3 3 > + B < 3 4 ) ! ni a c h i n e r at e 

3 IF ::B<30>=0) OR (B ( 2""' > < = 1 > THEN 8520 

3 Z8 ( 2 ) = ( 3 < 27 ) - i ) #B C 38 : *B ( 35 > /B (23 ) /B < 24 ) ! set t i ng c hange c os t 

3 GOTO 8538 

3 Z8c:2>=8 

3 IF 25=1 THEN 8570 

3 IF N=36 THEN 8580 

3 E<36)=B<25>*B<23>*B<29> ! gross prod, rate if prod, rate unknown 

3 IF N=37 THEN 8580 

3 E<37)=B'::3S>*( 180-B(2b) >/108 ! net production rate 

3 B<38>=B<35)/B<36)+Z7<2>+Z8C2) ! gross yarding cost 



3 9 > - B < 3 5 > .-- B ( 3 7 > + Z ? ' 2 ) + Z 8 < 2 > ! n e t ', : ar d i r, q c o - t 

H*="" THEN 8628 
[NT H$,LIN<!2> 

<C$=""> RHD <D$="'> THEN 8668 

1GE " RNflL YS I S N I TH HEN VflLUE OF " , 1 4X , " BRSE VRL UES = " , 25R , -" , 20fl , 20X , " NEU 
= ",25fl,/ 

[NT USING 3630;C*,E$,D* 
m 868 

1GE "RNRLYSI8 WITH NEW VflLUE OF",/, 26R 
[NT USING 8660 ;E$ 

[ NT SPFK 55 ) J " BRSE " | SPR ( 4 > ; " NEW !! ; SPFl ( 4 > ; " PERCENT " ; L I N < 1 > : SPR >: 54 ) : " VRLUES " 
1 V R L U E S " ; S P R ( 3 > ; " C H fl N G E " 
? X=33 TO 39 

R(X)<>8 THEN 8768 

B<X)<>0 THEN 8740 
O=@ 
fO 8776 



fO 8776 

<> = 1 8 Q * ( B ( X > - R ( >> > ) - R < X > 

<T X 

fO 7278 



KEY 4 (NEW VRLUES REPLRCED BY BRSE VHLuES; ****?:*##* 



? X=5 TO 39 
O=fl<X> 

a x 



f D = C 
1 

JSE 

FO 8968 

^##* ****** KEY 28 'BRSE VRLUES REPL.MCED FY NEW -.'RLUES) ********** 

? X=5 TO 39 
O=B<X> 

a x 
=n$ 

' 1 >=Z7<2> 
::i)=Z8(2) 

" o ij t. i n e t o r e m : '.,' e . an y d = 1 E- t e d p i e c e s o t" e q u -, p m e n t 

;: x=i TO u 

<D<X,,i)=0) RND <D'X,2>=0> flND ( D ( X , 3 > =6 > HND <D(X,4>=0> THEN 9838 

rr x 

FO 9238 

J-i 



80 B'vX, 2)=D(X+1 , 2) 

10 D<X,3>=D<X+1,3:> 

20 DCX,4)~D<X+1,4> 

38 G$(X)=G$(X+1) 

40 FOR X1=X+1 TO U 

50 DC XI , 1 )==n<Xl + l , 1 ) 

60 D(X1, 2)==IKX1 + 1 N 2) 

70 D<X1 ', 3>=D<Xl + l', 3> 

30 IK XI, 4>=D<X1 + 1 , 4) 

90 NEXT' XI 

09 D ( X 1,1) =D ( X 1 , 2 > =D ( X 1 , 3 ) = D ( X 1 , 4 ) = 6 

10 GOTO 9048 
20 ! 

30 MflT C=D 

40 M = U 

59 PflUSE 

50 GOTO 9259 

?0 ! 

30 ! ***####*## KEY 6 (OUTPUT OH PRINTER) ********** 

30 ! 

36 Pl=0 

10 GOTO 9360 

20 ! 

30 ! ********** KEY 5 (OUTPUT ON PLOTTER) ********** 

40 ! 

50 PI =16 

58 PRINTER IS PI 

70 PRUSE 

30 GOTO 9370 

90 ! 

30 ! ********** KEY 8 (PLOT ON SCREEN) ********** 

10 ! 

20 R7=l 

30 D ISP "PLOT ON SCREEN 1 

40 PRUSE 

50 GOTO 9440 

56 ! 

70 ! ********** KEY 9 (PLOT ON PLOTTER) ********** 

30 ! 

90 R7=2 

30 HI S P " P L T N P L TIE R - P 1 o 1 1 e r m u s t b e t u r n e d o n . 

10 PRUSE 

20 GOTO 9510 

30 ! 

40 ! ********** KEY 10 ;RXES & PLOT) ********** 

58 ! 

50 R8=S2=0 

76 1 = 1 

30 IF R7=l THEN 9686 ! plot on sere-en 

90 IF R7=6 THEN 10759 ! plot on plotter 

30 ! 

10 ! pi ot on p 1 ot t er rout i ne 

26 ! 



TIER IS "GRflPHlCS- 1 

TIER IS 7,5, "9872R" ! SET PLOTTER LIMITS TO 6.25 X 6.25 INCHES 

TTER 7,5 IS ON 

9726 

1 o t- o n s c r e e n r o u ': i n e 

TTER IS 13, "GRflPHICS" 

PHICS 

flS=l THEN 18880 

.X.eS !::: p 1 Ot 

R7O8 THEN 9780 
19750 

< R < 2 6 > < > 9 > OR ( B < 2 6 > < > Q ) THE H 9 8 1 9 
1 ! f 1 ag t o sup p r e s s "' n e t "' o r " q r o s =. - 1 ah e- 1 

9899 

1 U T " D o y o u i...i an t. t o p 1 o t. g r o s s r at h e r- t. h at- n e t v a 1 u e s ? \ V E 8 o r N ) " ,, E $ 
B*C1 S 1] = II V" THEN 9888 

B*C1 !( 1K>"N" THEN 9816 

2 ! f 1 ag t o p r i n t. " n e t -' 1 ab e 1 

1 3 7 ! n e t >,.- a 1 u > s w ill be p 1 o 1 1 e d 

= 39 

'0 9919 

: 3 ! f 1 ag t o p r i n t " g r o s s "' 1 ab e 1 

; 3 6 ! g r o s s u a I u e s w ill b e- p 1 o 1 1 e d 

= 38 
. K n 

82=1 THEN 19748 
:RTE 16, 96, 16, 96 
11 



o u t i n e t o au t o m at i c a 1 1 u c a 1 u c 1 at e r- an q e s t" o r h o r i z o n t a 1 & '-,' e r t i c a 1 a 
FKK1 = B<K1> THEN 10939 



)TO 10949 
.=R<K1> 

= B<K2> THEN 19970 



)TO 10110 



routine to round off axes values to nearest higher value of 19 

" Rl MOD 10O0 THEN 19148 

: ffe MOD 10O0 THEN 19169 

)TO 19179 

,=(R1 DIV 10+1>*10 

)TO 16129 



60 R2=<R2 DIV 10+1)* 10 

70 FIXED 8 

30 I F B* [1,13=" Y " THEN 1 0280 

90 ! 

D I S P " N an t t o d e f i n & r an g e o f p r o d . r at e & y ar d i n g c c s t. o t h & r t h an " ; R 

; ll (YES/NO)"; 

10 INPUT 13* 

20 FIXED 2 

30 IF B$C1, 13="Y" THEN 10260 

40 IF B*C1, i3O"N" THEN 10200 

50 GOTO 10280 

60 I N P U T " E n t e r : rn ax i m u rn p r o d u c t i o n r at e ( X - ax i s ) , rn ax i rn u rn y ar d i n g c o s t 

%R1,R2 

70 GOTO 10110 

80 B$=" " 

90 R9=R2*i.2 

00 SCRLE 0,fll,0,fl2 

10 RXES R1/10,R2/10 ? 0,8 

20 LOCflTE 0, 108,0, 100 

30 SCRLE W,Rl/5*6.25,0 :( fi2/5*6.25 

40 CSIZE 3 

50 DEG 

60 LDIR 

70 LORG 6 

80 FOR X=Rl/5 TO fll/5*S STEP Rl/10 ! label horizontal axis 

90 MOVE X,fl2*.8/5 

00 LRBEL. USING "DD" ; X-R1/5 

10 NEXT X 

20 LORG 8 . 

30 FOR X=R2/5 TO R2/5** STEP R2/10 ! label vertical axis 

40 MOVE R1*.8/5,X 

50 LRBEL USING " DD " ; X-R2/5 

60 NEXT X 

70 LORG 1 

80 CSIZE 4 

90 MOVE R 1/5* 1.05,6 

00 ON K3 GOTO 10510,105540,1057 

1 I MRGE " PRODUCT I ON RRTE ( " , 5R , " /HOUR > li 

20 LRBEL USING 10510; fl* 

30 GOTO 18590 

40 I MRGE " NET PRODUCT [ON RRTE C " , 5fi, "/HOUR V 

50 LRBEL USING 10540,'fl* 

60 GOTO 18590 

76 I MRGE " GROSS PRODUCT I ON RRTE < " , 5ft , " /HOUR ) " 

80 LRBEL USING 10570;fl* 

90 LDIR 90 

00 MOVE fll*.03,fl2/5*l 

10 ON K3 GOTO 10620,101350,10680 

20 I MRGE " YRRD I NG COST < DOLLRRS/ " , 5R , s: > " 

30 LRBEL USING 10620;fl:^ 

40 GOTO 18800 

50 IMRGE " NET YRRDIHG COST ( DOLLRRS/ ", 5R , " > " 

69 LRBEL USING 10650;fl* 



J70 GOTO li 

;80 IMRGE "GROSS VRRBIHG COST CBOLLRRS--" " , 5R , " > " 

J90 LRBEL USING 18688; fi* 

'00 GOTO 10800 

'10 ! 

? 20 ! plot 

'30 ! 

"40 IF R7O0 THEN 18778 

"50 DISP "You must press key S or key 9 first. 11 

'60 PRUSE 

? 70 IF S2=l THEN 18898 

? 88 R8=l 

7 90 GOTO 9580 

300 LOCRTE 8, 108,0,, 108 

310 SCRLE 0,fll/5*6'. 25,0.,fl2^5*6.25 

320 LOCRTE 16,96, 16,96 

330 INPUT "Enter: 8 to plot BRSE VfiLUES; 1 to plot NEW VRLUES; 2 to plot 

:.th",R3 

348 ! 

350 ! r o u t i n e to set 1 i n e t y p e 

368 ! 

370 R5=R5+2 

380 IF R5O10 THEN 18938 

390 R6=R6+2 

300 IF R6=18 THEN 11388 

310 R5=2 

320 GOTO 18878 

336 LINE TYPE R5,R6 

340 ! 

3 5 ! r o u t 1 n e t o d r- aw c A r .,' e 



370 R9=R9-R2*.04 

580 IF S2=8 THEN 11888 

998 GRRPHICS 

300 IF R3=l THEN 11388 

310 ! 

328 ! PLOT ERSE VRLUES 

330 ! 

340 FOR X=R1 TO .5 STEP -.5 

350 R4=Z7( 1>+Z3<1>+FU35 >/X 

368 PLOT X + fll/5,fl4-i-fl2/5 

370 NEXT X 

380 ! 

390 ! r o u t i n e t o d r a w 1 i n e s & 1 a b e 1 

100 ! 

110 PENUP 

120 MOVE fl<Kl>+Rl.--5,R2/i5 

130 PLOT fl<Kl)+fll/5,H<K2)+fl2/5,-l 

140 PLOT Rl/5,R(K2>+fl2.--5,2 

150 CSIZE 3 

160 MOVE R1*.65,R9 

170 DRRW R1*.31,R9 

180 MOVE fll*.85,fi9 



LORG 2 

LDIR 6 

LINE TYPE 1 

LRBEL C* 

IF '::R<KiK>BOa OR 

R9=R9-R2*.64 

MOVE fll*.Sl ? R9 

LfiBEL "& ";b$ 

GOTO 11678 

IF R3=8 THEN 11670 

j 

! PLOT HEN VRLUES 
i 

! r o u t i n e t o s e t 1 i n e t y p e 
i 

R5=R5+2 

IF R5O19 THEN 1142*3 

R6=R6+2 

IF R6O19 THEN 5690 

D I S P " N o m o r e p 1 o t s all o w e d ! I! 

PRUSE 

R5 = 2 

GOTO 11340 

IF R3=l THEN 11480 

LINE TYPE R5 ? fl6 

i 

! routine to draw curue 
i 

R9=R9-R2*. 04 

FOR X=fll TO .5 STEP -.5 

R4 = Z7 ( 2 :: +ZS ( 2 ) +B ( 35 : /X 

PLOT X + R1/-5, R4 + R2---5 

NEXT X 

i 

! routine to draw 1 ines & label 
j 

PEN UP 

MOVE B^Kl>+fll/5,R2/;5 

PLOT B ( K 1 > +R 1 /5 , B ( K2 > +R2/5 , - 1 

PLOT fll/5,B<K2) + R2>'15,2 

CSIZE 3 

MOVE RU.65,R9 

DRRW fll*.81,R9 

MOVE R1*.85,R9 

LORG 2 

LDIR 

LINE TYPE 1 

LRBEL D$ 

MOVE fll*1.2,fl2*1.2 

K = 9 

PflUSE 

GOTO 11690 



1J72Q ! ********** KEY 24 <HflRD COPY OF PLOT) ********** 

11739 ! 

11746 IF 1=1 THEN 11788 

11750 BEEP 

11760 D I S P " N o h ar d c o p y : an b e m ad = ! Y o u rn u s t p 1 o t s o rn e t h i n q f i r s 

11776 PflUSE 

11786 IF 07=1 THEN 11820 

11790 BEEP 

1 1 8 D I S P " H o h ar d c o p y *.: an b e m ad e ! Y o u r p 1 o t w as rn a d e o n t h e p 1 

11810 PflUSE 

11820 DUMP GRflPHICS 

11830 GCLEFiR 

11840 PflUSE 

11850 GOTO 11849 

11860 ! 

11870 ! ********** KEY 26 (PLOT ONLY) ********** 

11880 ! 

11890 IF 1=1 THEN 11940 

11900 BEEP 

11910 D I S F 1 " Y o u rn '.4 s t rn ak e a p 1 o t w i t h ax e s f i r s t ! R c c e s s k e y 1 8 b e 



11920 PflUSE 

11930 GOTO 11929 

11940 IF K=l THEN 11999 

11950 BEEP 

1196 D I 8 P " Y o u m u s t m ak e o n e o r rn o r e c h an g e s t h r o u g h k e y 0,11,12,1 

rst ! " 

11970 PflUSE 

11980 GOTO 1 1978 

11990 S2=l 

12000 GOTO 9910 

12010 END 

12020 PLOTTER IS "GRflPHICS" 

12030 PLOTTER: IS 7, 5 , " 9872R " 

12040 PLOTTER 7,5 IS ON 

12050 X=0 

12060 FOR XI =1 TO 7 

12070 FOR X2==l TO 3 

12080 LINE TYPE Xl+3,2+2*X2 

12090 X=X+1 

12100 MOVE 6,2*X 

12110 DRflW 60,2*X 

1212Q NEXT X2 

12136 NEXT XI 

12140 PflUSE 



KEY 

- C 1 = ar 
COHT3260 
-Execut e 

KEY 1 
-Clear 
CQNT5289 

- E x e c u t e- 
KEY 2 

Clear 

COHT5240 

- E x e c u t- e- 
KEY 3 

-Clear 
CQNT6850 
-Execute 
KEY 4 
-C 1 ear 
C N T 8 8 

- E x e c u t e 
KEY 5 

-Clear 
CO NT 93:10 

- E > e c u t e 
KEY 6 

-C 1 ear 
CQMT92S0 
~ E x e c u t fr- 
K E Y 7 

-C 1 ear 1 i ne 
REWIND ":T15" 

- E x e c u t e 
KEY S 

-Clear 
CONT9400 
-Execute 
KEY 9 
-C 1 ear 
CONT9478 

- E x e c u t e 
KEY 10 

-Clear 

CONT9546 

-Exec ut e 
KEY 11 

-Cl ear 

COHT8070 

-Exec ut e 
KEY 12 

-Cl ear 

CONT3100 

- E x e c u t e 



KEY 13 

- C 1 e ar 
CONT8130 

- E x e c u t e 
KEY 14 

- C 1 e ar 
CONT8160 
-Exec ut e 

KEY 15 
-Clear 
CONT8220 

- E x e c u t e 
KEY 20 

-Cl ear 
CONT8930 
-Execute 
KEY 24 
-Cl ear 
CONT11720 

- E x e c u t e 
KEY 26 

-Clear 
CGNT1 1S7U 
E x e c u t e 



)escrlption of J* 
Variables - 



A() 



^rogram 



Al 
A2 
A3 



A4 
A5 
A6 
A7 
A8 
A9 

B$ 

B() 

B 

C$ 

C() 

D$ 

D() 

D 

E$ 

E() 

E 

F$ 

F 

G$() 

H$ 

H 

HI 

I 

J 

K 

Kl 

K2 

K3 

L 

M 

Ml 

N 

Nl 

P 

PI 

Q 

R 



Volume unit description 

Base variable values 

Total average annual investment 

Maximum value of production rate for plot 

Maximum value of yarding cost for plot 

Flag to indicate if plot is for base values, new Vc 

both 

Flag to indicate if yarding cost is to be plotted 

Line type identification number for plot 

Line type length for plot 

Flag to indicate if plot is on the screen or print* 

Flag to indicate if axes and plot or plot only is 1 

Vertical distance to the plot and to the label of ] 

and identifier 

"YES" or "NO" response to visual prompts 

New variable values 

Dummy to read DATA 

Identifier for base values 

Base variable values 

Identifier for new values 

New variable values 

Total equipment depreciation 

Variable type description 

Percent change between base value and new value 

Counter 

Temporary identifier for new values 

Flag for determining if test for variable value eqi 

zero is required 

Equipment identifier 

Heading 

Flag to determine if part 1 of Print analysis rout: 

been accessed 

Flag to route program if part 2 of Print analysis i 

accessed prior to part 1 

Flag to determine if key 10 has been pressed before 

Temporary storage for New Value 

Flag to determine if key 26 can be accessed or not 

Value to allow plot of gross or net production rate 

Value to allow plot of gross or net yarding cost 

Flag to select plot labels 

Line cost/hour 

Number of base pieces of equipment 

Total repairs and maintenance cost 

Number of the variable that is to be changed 

Number of the equipment piece 

Flag to route to calculations for production rate < 

if VARIABLE CHANGES routine is accessed 

Printer mode (CRT or internal thermal printer) 

Direct labor cost plus supervision and overhead GOJ 

Rigging cost/hour 



S Flag to indicate which part of Print analysis re 

been accessed 

S2 Flag to indicate if key 26 (Plot only) is access 
T Tire or track cost/hour 
U Current number of base or new pieces of eguipmer 

is greater) 

W Percent change from base value to new value 
Wl Percent change from base value to new value 

X Counter 

XI Counter 

25 Flag to indicate if production rate is known (ZE 

unknown (Z5=0) 

27 () Move in and move out cost (dollars/gross unit vc 
28 () Total setting change cost (dollars/gross unit vc 
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